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微软 公司 的 电子 表格 处 理 软件 Excel， 因 其 简便 易 用 ， 功 能 强大 ， 一 直 以 来 在 
办 公 自 动 化 领域 得 到 广泛 的 应 用 ， 其 与 开发 工具 VBA(Visual Basic Application) 的 高 
效 结合 ， 大 大 加 强 了 它 在 数据 处 理 与 分 析 方 面 的 能 力 ， 使 其 在 财务 管理 中 发 挥 非常 
重要 的 作用 。 有 鉴于 此 ， 我 们 根据 多 年 教学 及 进行 财务 软件 开发 和 研究 中 取得 的 经 
验 ， 编 写 了 本 书 。 

本 书 分 为 两 大 部 分 ， 一 是 理论 知识 部 分 ， 二 是 实验 环节 部 分 。 理 论 知 识 部 分 主 
要 包括 会 计数 据 处 理 基本 理论 、Excel 表格 处 理 、 图 表 绘 制 、 外 部 数据 导入 、 函 数 
使 用 、VBA 开发 环境 、 程 序 编制 以 及 数据 库 的 操作 等 ; 实验 环节 部 分 主要 包括 使 用 
Excel 建立 财务 分 析 、 固 定 资产 投资 、 存 货 管理 、 销 售 预测 等 模型 ， 以 及 使 用 VBA 
建立 时 间 价 值 、 长 期 借款 、 往 来 账 龄 分 析 、 固 定 资产 管理 等 模型 。 通 过 理论 知识 部 
分 的 学 习 ， 使 学 生 了 解 会 计数 据 处 理 基 本 原理 ， 掌 握 Excel 的 基本 操作 ， 并 可 以 进 
阶 学 习 VBA 的 程序 设计 和 数据 库 操作 ， 而 与 之 配套 的 实验 环节 ， 则 让 学 生 将 掌握 
的 理论 知识 应 用 于 实践 ， 加 深 其 对 理论 知识 的 印象 和 理解 ， 对 重点 和 难点 的 把 握 也 
会 更 加 深入 和 准确 ,为 培养 学 生 实际 工作 中 的 应 用 能 力 打下 良好 的 基础 。( 本 书 提供 
丰富 的 电子 课件 和 实验 资料 ， 读 者 可 以 从 http://www.tupwk.com.cn 下 载 ) 

本 书 主要 适合 用 作 大 学 会 计 、 财 务 管理 、 审 计 、 信 息 管 理 专业 财务 管理 信息 化 
课程 的 教材 , 也 可 作为 高 职高 专 会 计 和 会 计 电 算 化 专业 的 财务 管理 实验 课程 的 教材 。 

本 书 由 以 下 人 员 编 写 : 毛 华 扬 编写 第 1 章 ， 黄 娇 丹 编写 第 2 章 ， 杨 晓 编写 第 3 
章 、 第 4 章 和 第 6 章 ， 朱 谱 烟 编写 第 5 章 ， 最 后 由 杨 晓 、 毛 华 扬 总 自 定 稿 。 

在 编写 过 程 中 ， 我 们 得 到 了 许多 单位 的 支持 ， 在 此 表示 诚挚 的 谢意 。 我 们 还 参 
考 了 有 关 资 料 ， 详 见 书后 的 参考 文献 ， 在 此 一 并 表示 感谢 。 由 于 疏忽 ， 有 可 能 个 别 
参考 资料 被 漏 列 ， 如 发 现 ， 请 予以 提出 ,我 们 将 在 下 一 版 中 补 上 ， 并 就 此 表示 车 意 。 

书 中 案例 所 涉及 的 人 名 、 公 司 名 等 除 特别 说 明 外 均 属 于 虚构 。 

限于 时 间 和 经 验 ， 本 书 肯 定 有 许多 不 足 之 处 ， 欢 迎 批评 指正 (请 发 邮件 至 
cuiwei80@163.com)， 以 便 在 下 一 版 中 进行 修改 。 
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第 1 章 
会 计数 据 处 理 概 论 


1.1 会 计数 据 处 理 技术 概述 


数据 是 对 客观 事物 属性 的 描述 ， 它 是 反映 客观 事物 的 性 质 、 形 态 、 结 构 和 特征 
的 符号 。 信 息 是 反映 客观 世界 中 各 种 事物 特征 和 变化 的 知识 ， 是 数据 加 工 的 结果 ， 
信息 通过 文字 、 数 字 、 图 形 等 形式 ， 对 客观 事物 的 性 质 、 形 式 、 结 构 和 特征 等 方面 
进行 反映 。 


1.1.1 会 计数 据 处 理 


会 计数 据 是 记录 下 来 的 会 计 业 务 ， 是 产生 会 计 信息 的 源泉 。 在 会 计 工 作 中 ， 从 
不 同 的 来 源 和 渠道 取得 的 各 种 原始 会 计 资 料 、 原 始 凭证 及 记 账 凭证 等 都 称 为 会 计数 
据 ， 如 某 日 仓库 的 进货 量 、 金 额 ， 某 日 某 产品 的 产量 、 费 用 等 。 会 计数 据 处 理 
(Accounting Data Processing) 是 指 对 会 计数 据 进行 加 工 处 理 ， 生 成 管理 所 需 会 计 信 息 
的 过 程 。 一 般 要 经 过 采集 、 录 入 、 传 输 、 加 工 、 存 储 、 输 出 等 环节 。 会 计 信息 是 指 
在 会 计 核 算 和 管理 中 需要 的 各 项 数据 ， 包 括 资 产 信 息 、 负 债 信息 、 生 产 费 用 和 成 本 
信息 、 收 入 信息 以 及 有 关 利润 实现 和 分 配 的 信息 。 从 使 用 层次 看 ， 会 计 信息 可 以 分 
为 财务 信息 、 管 理 和 决策 信息 等 。 

1. 会 计数 据 处 理 的 方式 


(1) 手工 会 计数 据 处 理 
手工 会 计数 据 处 理 是 完全 由 会 计 人 员 借 助 于 计算 工具 及 凭证、 账 敌 、 报 表 等 对 
会 计数 据 进 行 确认 、 计 量 、 记 录 、 分 类 、 计 算 、 汇 总 、 报 告 等 会 计 工 作 。 
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(2) 机 械 化 会 计数 据 处 理 

机 械 化 会 计数 据 处 理 是 指 在 机 电 设备 上 使 用 穿孔 卡片 等 对 会 计数 据 进行 处 理 。 
其 主要 特征 是 : 在 会 计数 据 处 理 中 ， 从 原始 数据 的 准备 ， 以 及 经 由 记录 、 验 证 、 分 
类 、 登 记 、 计 算 、 汇 总 、 报 告 等 一 系列 具体 步骤 都 以 机 器 为 主 ， 结 合 手工 操作 进行 。 
机 械 化 会 计数 据 处 理 与 手工 会 计数 据 处 理 相 比较 ， 仅 是 数据 处 理 的 载体 、 传 输 的 形 
式 发 生 了 变化 ， 而 在 会 计数 据 处 理 的 方法 、 程 序 等 方面 都 没有 根本 变化 。 

G3) 计算 机 会 计数 据 处 理 

计算 机 会 计数 据 处 理 ， 简 称 计算 机 会 计 、 会 计 电 算 化 、 会 计 信息 化 等 ， 是 以 计 
算 机 以 及 数据 传输 和 通讯 设备 作为 数据 处 理 系统 的 核心 ， 完 成 从 原始 数据 的 采集 ， 
以 及 经 由 记录 、 验 证 、 分 类 、 登 记 、 计 算 、 汇 总 、 报 告 等 一 系列 会 计 工 作 。 在 此 过 
程 中 ， 会 计 人 员 只 进行 一 些 辅助 性 的 操作 ， 即 会 计 人 员 只 需要 把 会 计数 据 以 规定 的 
要 求 输入 处 理 系统 ， 计 算 机 即 可 按照 事先 编制 好 的 程序 ， 自 动 完成 会 计数 据 处 理 ， 
并 将 最 终结 果 一 一 财务 报告 打印 出 来 。 计 算 机 处 理 与 其 他 会 计数 据 处 理 相 比较 ， 不 
仅仅 是 会 计数 据 记录 的 载体 、 计 算 速 度 等 发 生 了 质 的 变化 ， 关 键 是 会 计数 据 处 理 方 
法 产生 了 革命 性 的 变动 。 

2. 会 计数 据 处 理 的 过 程 


会 计 要 连续 、 系 统 、 综 合 地 核算 企业 经 济 活动 的 全 过 程 ， 若 想 为 会 计 信息 使 用 
者 提供 有 用 的 信息 , 就 必须 运用 特有 的 方法 , 对 大 量 经 济 业务 产生 的 数据 进行 处 理 。 
从 某 种 角度 可 以 说 ， 会 计 核算 工作 的 过 程 是 对 数据 进行 处 理 的 过 程 。 

(1) 数据 收集 

收集 大 量 的 数据 ， 并 采用 适当 的 方式 将 其 记录 下 来 ， 这 是 数据 处 理 的 第 一 步 
它 关 系 着 输出 数据 的 真实 性 、 完 整 性 。 数 据 收集 一 般 包 括 数据 判定 和 数据 记载 两 项 
二 人 必 。 

会 计 核算 过 程 中 的 确认 实际 上 就 是 这 里 所 说 的 数据 判定 ， 会 计 上 的 数据 载体 就 
是 会 计 和 凭证 ， 通 过 会 计 和 凭证 记录 经 济 业务 的 发 生 或 完成 。 

(2) 数据 校 验 

数据 校 验 是 指 对 记载 过 程 的 数据 进行 校 验 ， 从 而 保证 完整 和 正确 的 数据 进入 处 
理 系 统 。 会 计 工 作 是 通过 对 取得 的 原始 凭证 进行 审核 完成 的 ， 并 根据 审核 后 的 原始 
凭证 编制 记 账 赁 证， 表明 通 过 审核 的 经 济 业务 能 够 进入 会 计 核 算 系 统 。 

(3) 数据 加 工 

数据 加 工 是 指 通过 算术 运算 或 逻辑 运算 ， 把 收集 好 的 数据 转换 成 信息 的 处 理 过 
程 。 数 据 加 工 一 般 包 括 人 分类、 排序、 核对、 合并、 计算、 比较、 选择 等 工作 。 对 会 
计数 据 的 处 理 一 般 也 包括 这 些 工 作 。 


Ey 


EB 但 人 条 太 届 据 处理 鼎 论 策 


(4) 数据 传输 

数据 传输 是 指 将 数据 从 一 个 地 方 传送 到 另 一 个 地 方 ,或 把 最 终结 果 传送 给 用 户 。 
财务 报告 是 会 计 工 作 的 最 终结 果 ， 企 业 应 定期 编制 财务 报告 ， 并 报 送 给 有 关 的 会 计 
信息 使 用 者 。 

(5) 数据 存储 

数据 存储 是 指 将 原始 数据 、 中 间 结 果 和 程序 存储 起 来 ， 以 备 调用 。 

会 计数 据 的 收集 和 使 用 时 间 是 不 一 致 ， 而 且 对 数据 的 处 理 过 程 是 一 个 连续 不 断 
的 过 程 ， 或 者 说 是 一 个 周期 循环 的 过 程 ， 大 量 的 会 计数 据 均 要 存储 起 来 ， 以 备 将 来 
使 用 。 会 计数 据 一 般 存 储 在 凭证 、 序 时 账簿 、 分 类 账簿 和 有 关 的 备查 账簿 中 。 


1.1.2 会 计数 据 处 理 的 特点 


会 计数 据 处 理 的 特点 如 下 : 

(1) 数据 来 源 广 、 种 类 多 、 综 合 性 强 、 连 续 性 强 、 数 据 量 大 、 类 型 较为 复杂 、 
结构 和 处 理 逻 辑 复杂 。 

(2) 要 求 会 计数 据 方便 审计 。 

G) 会 计数 据 输入 时 需要 进行 严格 的 审核 ， 要 求 客观 、 真 实 、 公 允 、 全 面 完 整 
和 一 致 。 

(4) 数据 处 理 过 程 必须 符合 会 计 制 度 和 相关 法 规 要 求 ， 环 节 比较 多 ， 处 理 步 又 
定期 重复 。 

(5) 日 常 工作 操作 简单 ， 但 准确 性 要 求 高 。 

(9) 证 、 账 、 表 种 类 多 ， 数 量 大 ， 要 作为 会 计 档 案 长 期 保存 ， 并 方便 信息 输出 、 
查找 。 

(7) 会 计数 据 处 理 要 求 具有 安全 性 、 可 靠 性 、 及 时 性 、 保 密 性 ， 杜 绝 狂 弊 。 


1.1.3 手工 会 计数 据 处 理 


手工 处 理 主要 是 由 人 工 进 行 会 计数 据 的 收集 、 分 类 、 汇 总 与 计算 。 

手工 处 理 的 优点 在 于 具有 良好 的 适应 性 和 可 靠 性 。 由 于 某 种 需要 ， 会 计 业 务 的 
处 理 方式 、 程 序 需要 调整 变化 时 ， 在 手工 方式 下 比较 易于 进行 调整 :在 日 常 的 业务 
处 理 过 程 中 出 现 例外 事件 时 ， 可 以 及 时 灵活 地 进行 相应 的 处 理 ; 会 计 业 务 的 正常 处 
理 不 会 因为 计算 机 系统 的 原因 而 完全 中 止 。 

手工 处 理 的 缺点 表现 为 两 低 一 高 ， 即 低速 度 、 低 效率 及 高 差错 率 。 

手工 会 计数 据 处 理 的 技术 特性 如 表 1-1 所 示 。 
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表 1-1_ 手工 会计 数据 处 理 的 技术 特性 
说 了 明 


复杂 性 


* 信息 关 系 复杂 ， 会 计 信息 有 着 相互 依存 、 相 互 制约 的 紧密 关系 ， 如 资产 、 负 


债 与 所 有 者 权益 之 间 的 平衡 关系 ， 成 本 与 利润 之 间 的 消长 关系 ， 总 账 信息 与 
明细 账 信息 的 核对 关系 


“信息 接口 复杂 ， 会 计 信息 是 以 货币 形式 综合 地 反映 企业 的 生产 经 营 活动 ， 其 


信息 的 源 点 和 终点 涉及 供 、 产 、 销 每 个 环节 以 及 人 、 财 、 物 每 个 部 门 或 单位 


"信息 计算 复杂 ， 会 计 信 息 的 处 理 过 程 自始至终 离 不 开 各 种 计算 方法 


有 序 性 


规范 性 


分 散 性 


“会 计 系统 对 经 济 活动 的 反映 与 监督 是 根据 经 济 业务 发 生 的 先后 顺序 连续 不 断 


地 进行 的 ， 各 个 环节 环 环 相 扣 ， 循 序 渐进 


"根据 会 计 主 体 每 一 经 济 交易 或 事项 发 生 的 时 间 先后 顺序 : 填 制 和 审核 会 计 凭 


证 一 设置 和 登记 会 计 账簿 一 试 算 平衡 和 编制 会 计 报表 一 进行 财务 分 析 


“涉及 会 计 信息 的 判断 、 确 认 、 分 类 、 计 算 、 组 合 、 复 核 、 记 录 、 再 分 类 、 再 


重组 等 多 个 技术 环节 ， 以 生成 对 外 会 计 报表 和 对 内 财务 报告 


”再 开始 下 一 个 会 计 期 间 的 循环 
“会 计 信 息 处 理 具 有 一 整套 系统 、 完 整 的 程序 和 方法 ， 必 须 遵循 《企业 会 计 准 


则 》 及 《企业 会 计 制度 》 的 规定 


“会计 信息 的 收集 、 处 理 、 交 换 均 必须 以 有 形 的 实物 为 载体 ， 如 出 库 单 、 发 票 


等 原始 凭证 ， 活 页 式 、 订 本 式 的 账 往 ， 具 有 一 定格 式 的 会 计 报 表 等 


”对 于 每 一 环节 的 处 理 结果 都 具有 可 验证 性 
"手工 会 计数 据 处 理 需 要 由 多 名 会 计 人 员 分 工 协作 才能 完成 
* 为 避免 人 工 在 任何 环节 与 任何 时 候 都 可 能 出 现 的 计算 、 记 录 方 面 的 差错 ， 因 


此 根据 复式 记 账 原理 ， 环 环 检查 、 平 行 登记 、 账 证 核对 、 账 账 核 对 、 账 表 核 
对 、 试 算 平衡 等 技术 贯穿 于 整个 处 理 过 程 


* 会计 主体 单一 ， 会 计 信息 系统 仅 收集 、 处 理 和 交换 与 主体 直接 相关 的 经 济 事 


项 的 信息 ， 而 不 包括 所 在 行业 的 信息 


"会 计 期 间 的 单一 ， 在 手工 条 件 下 ， 会 计 系统 只 能 以 “月 ”作为 最 小 会 计 期 间 


来 提供 会 计 信 息 


“货币 计量 的 单一 ， 会 计 系统 只 收集 、 处 理 和 交换 能 够 用 货币 描述 的 经 济 事项 


的 信息 ， 而 不 包括 非 货币 计量 的 信息 


"核算 方法 的 单一 ， 会 计 系统 只 确认 主体 认定 的 核算 方法 所 生成 的 信息 ， 而 不 


包括 其 他 备 选 方法 或 程序 所 可 能 生成 的 信息 


"信息 确认 的 单一 ， 会 计 信息 系统 仅 收 集 、 处 理 和 交换 已 发 生 的 经 济 事项 的 信 


息 ， 而 不 包括 未 发 生 的 经 济 事项 的 信息 
4。 
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1.1.4 计算 机 会 计数 据 处 理 
计算 机 处 理 就 是 以 计算 机 为 工具 进行 会 计数 据 处 理 。 
计算 机 会 计数 据 处 理 的 技术 特性 如 表 1-2 所 示 。 


表 1-2 计算 机 会 计数 据 处 理 的 技术 特性 
特 性 说 明 


"信息 处 理 的 集中 ， 在 网 络 或 多 用 户 的 环境 下 ， 可 实现 信息 共享 和 集中 处 理 


集 
人 "信息 存储 的 集中 ， 会 计 信息 存储 在 中 心 数据 库 中 ， 可 跨年度 存储 和 利用 会 计 信息 


" 系统 由 计算 机 来 执行 从 会 计 赁 证 到 财务 报告 全 过 程 的 信息 处 理 ， 人 工 干预 大 
大 减少 ， 客 观 上 消除 了 手工 方式 下 信息 处 理 过 程 的 诸多 技术 环节 ， 如 过 账 、 
结账 、 对 账 、 试 算 平衡 、 编 制 报表 等 ， 同 时 计 提 折旧 、 存 货 计价 和 成 本 计算 
等 繁杂 的 核算 工作 均 可 自动 完成 
"收集 信息 的 多 样 性 ， 会 计 系统 通过 对 各 个 部 门 的 信息 接口 转换 ， 接 收 货币 形 
态 的 信息 ， 同 时 亦 可 接收 非 货币 形态 信息 
"提供 信息 时 间 的 多 样 性 ， 会 计 期 间 已 不 再 是 提供 会 计 信息 的 约束 条 件 ， 可 随 
时 生成 所 需 信息 
， 处 理 信息 方法 的 多 样 性 ， 会 计 系 统 在 主体 认定 的 计算 方法 的 同时 ， 如 果 需 要 
也 可 选用 其 他 备 选 方法 进行 试 算 ， 比 较 差异 。 系 统 可 运用 有 关 数 学 模型 和 方 
法 ， 进 行 财务 分 析 、 预 测 和 决策 
"提供 信息 空间 的 多 样 性 ， 借 助 于 信息 处 理 方法 多 样 化 的 结果 ， 根 据 需 要 ， 有 
货币 形态 的 信息 ， 亦 有 非 货币 形态 的 相关 信息 ， 既 有 历史 信息 (历史 成 本 )， 也 
有 现在 信息 ( 重 置 成 本 、 市 场 公 人 允 价 值 ) 和 未 来 信息 (预定 成 本 、 目 标 利润 ) 
"提供 信息 形式 的 多 样 性 ， 随 着 多 媒体 技术 的 应 用 ， 系 统 除了 提供 数字 化 信息 ， 
也 可 提供 图 形 化 信息 以 及 语音 化 信息 
。 由 于 采用 了 现代 信息 技术 ， 数 据 处 理 高 度 自动 化 ， 会 计 信息 资源 高 度 共享 。 
大 量 的 数据 通过 网 络 从 企业 内 外 有 关系 统 (如 证 监 会 、 银 行 、 企 业 的 生产 部 门 
和 人 事 部 门 ) 直 接 采 集 ， 而 企业 内 外 的 各 个 机 构 、 部 门 也 可 根据 授权 通过 
Internet 从 系统 直接 获取 信息 ， 会 计 信 息 将 更 大 程度 地 开放 和 公开 
"从 范围 上 看 ， 计 算 机 会 计数 据 处 理 涉及 会 计 基 本 理论 与 方法 、 会 计 实 务工 作 、 
会 计 教育 以 及 政府 对 会 计 的 管理 等 所 有 会 计 领 域 ， 使 会 计 系统 全 面 发 展 
"从 功能 上 看 ， 计 算 机 会 计数 据 处 理 不 仅 是 进行 会 计 核算 ， 还 包括 会 计 监 督 、 
会 计 预 测 与 决策 ， 并 根据 信息 管理 的 原理 和 信息 技术 重 整 会 计 流程 
， 从 技术 手段 上 看 ， 计 算 机 会 计数 据 处 理 不 仅 要 采用 计算 机 技术 ， 更 要 以 网 络 
技术 和 通讯 、 生 物 工程 等 现代 技术 为 主 ， 进 行 现代 会 计 信息 系统 的 构建 
SS 


自动 性 


多 样 性 


多 样 性 


开放 性 


全 面 性 
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1.1.5 手工 会 计数 据 处 理 与 计算 机 会 计数 据 处 理 的 比较 


手工 会 计数 据 处 理 与 计算 机 会 计数 据 处 理 的 比较 如 表 1-3 所 示 。 


表 1-3 手工 会 计数 据 处 理 与 计算 机 会 计数 据 处 理 的 比较 
说 明 


相同 
之 处 


目标 一 致 。 无 论 是 手工 处 理 还 是 计算 机 处 理 , 其 最 终 的 目标 是 为 了 反映 经 济 活动 
加 强 经 营 管理 
遵循 基本 的 会 计 理 论 与 会 计 方法 


遵守 会 计 法 规 及 财经 制度 

保存 会 计 档案 。 会 计 档 案 是 会 计 的 重要 历史 资料 ， 必 须 按 规定 妥善 保管 。 计 算 机 
系统 形成 的 大 部 分 档案 有 可 能 被 损坏 , 这 就 要 求 管 理 人 员 更 加 重视 管理 系统 的 信 
息 资料 

按照 有 关 规 定编 制 出 各 种 报表 

信息 载体 不 同 。 手 工 处 理 以 纸 为 载体 ， 占 用 空间 大 ， 不 易 长 久保 存 ， 查 找 困 难 。 
计算 机 处 理 以 存储 介质 保存 数据 文件 为 主 ， 以 计算 机 输出 的 纸 质证 、 账 、 表 为 辅 。 
存储 介质 的 优点 是 占用 空间 小 、 可 以 长 期 保存 ， 能 更 丰富 、 更 完整 、 更 长 久 地 保 
留 会 计 信息 ， 但 存储 介质 保存 的 数据 文件 具有 无 形 性 ， 容 易 复 制 、 纂 改 与 删除 且 
不 留 痕迹 

短 记 形式 不 同 。 手 工 处 理 规定 的 日 记 账 、 总 账 要 用 订 本 式 账册 ， 明 细 账 可 用 订 本 
式 或 活页 式 账册 ; 账 短 记录 本 的 错误 要 用 划 线 法 或 红字 冲销 法 更 正 ， 账 页 中 的 空 
行 、 空 页 要 说 明 “作废 ”字样 或 画 线条 注销 。 计 算 机 对 数据 的 处 理 是 由 程序 控制 
自动 运行 的 , 只 要 原始 数据 输入 正确 , 不 会 发 生 记 账 凭证 和 账 短 记录 差错 的 现象 
不 存在 用 手工 处 理 下 的 划 线 更 正法 来 更 正 差错 

账 务 处 理 程序 不 同 。 在 手工 条 件 下 ， 各 单位 根据 本 单位 规模 、 数 量 、 业 务 特点 、 
管理 要 求 及 核算 的 繁 简 程度 等 因素 ， 可 以 选择 一 种 较 好 的 实用 的 记 账 方式 。 但 无 
论 采 取 何 种 方式 都 避免 不 了 重复 转 抄 ， 随 之 而 来 的 是 财会 人 员 和 处 理 环节 增多 
若 不 加 强 内 部 控制 和 核对 ， 难 免 会 出 现 差错 和 舞弊 现象 

计算 机 处 理 可 以 采用 科学 的 账 务 处 理 程序 和 核算 方法 ， 整 个 处 理 过 程 分 为 输入 、 
处 理 、 输 出 三 个 环节 , 并 都 在 系统 内 自动 完成 , 需要 的 处 理 结果 或 任何 中 间 资 料 
可 通过 打印 或 查询 获得 ， 避 免 了 重复 处 理 ， 实 现 了 数据 处 理 一 体 化 ， 有 利于 会 计 
工作 标准 化 ， 给 上 级 部 门 进一步 处 理 创造 了 条 件 


系统 的 设计 方法 不 同 。 手 工会 计 系统 一 般 由 会 计 师 根据 会 计 法 规 、 会 计 准则 、 会 
计 制 度 和 行业 特点 ， 针 对 本 企业 工作 的 需要 来 设计 。 计 算 机 处 理 因 数据 处 理 实现 
自动 化 ， 其 系统 设计 除 要 遵循 手工 情况 下 的 会 计 准 则 和 会 计 制 度 外 ， 还 必须 遵循 
特定 的 电 算 化 制度 ， 如 账册 、 报 表 设 计 等 要 符合 输出 、 打 印 要 求 。 计 算 机 处 理 系 
统一 般 由 高 级 会 计 师 、 系 统 分 析 员 和 程序 员 在 原 手工 系统 基础 上 进行 会 计 信 息 系 
统 的 分 析 、 设 计 与 开发 
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( 续 表 ) 
比较 说 阴 
会 计数 据 的 收集 传输 形式 趋 于 自动 化 。 在 计算 机 系统 中 , 各 种 在 现场 发 生 的 原始 
数据 通过 网 络 及 自动 输入 装置 可 以 转化 为 计算 机 直接 处 理 的 数据 形式 , 无 需 人 工 
重新 输入 ， 提 高 了 会 计数 据 的 实时 性 、 有 用 性 和 共享 性 
会 计 的 管理 职能 进一步 强化 。 会 计 是 经 营 管理 的 一 个 重要 组 成 部 分 , 但 在 手工 处 
理 环境 下 ， 由 于 人 工 操作 的 局 限 性 ,会 计 只 能 以 事后 记 账 、 算 账 、 报 账 为 主 。 在 
计算 机 处 理 环境 下 ,可 以 充分 利用 计算 机 的 优势 和 特点 ， 进行 会 计 预 测 、 会 计 决 
、 会 计 控制 以 及 会 计 分 析 活动 ， 从 而 真正 实现 会 计 的 管理 职能 
会 计 工作 组 织 、 机 构 发 生变 化 。 在 手工 处 理 环境 下 ,财务 部 门 一 般 分 为 若干 个 工 
作 岗 位 ， 如 在 工业 企业 中 ， 一 般 划分 为 工资 、 材 料 、 固 定 资产 、 成 本 等 小 组 用 于 
专门 的 业务 核算 ， 设 专人 负责 记 账 、 编 制 报表 工作 。 在 计算 机 处 理 环境 下 , 新 的 
岗位 划分 包括 数据 录入 、 审 核 、 维 护 等 
内 部 控制 方式 不 同 。 在 计算 机 处 理 环 境 下 ,原来 的 内 部 控制 方式 部 分 被 取消 或 改 
变 。 如 原来 通过 账 证 核对 、 账 账 核对 、 账 表 核对 的 控制 方式 已 被 更 加 严密 的 输入 
控制 所 替代 ， 原 来 通过 签字 、 盖 章 等 方式 实现 的 控制 已 被 权限 控制 所 替代 
对 人 员 素质 的 要 求 不 同 。 手 工 处 理 环境 下 要 求 从 业 人 员 具 备 一 定 的 会 计 专 业 知识 
及 一 定 的 从 业经 验 就 可 以 , 而 计算 机 处 理 环境 下 要 求 从 业 人 员 除 具 备 专业 会 计 知 
识 外 ， 还 要 有 相应 的 计算 机 方面 的 知识 ， 对 从 业 人 员 的 要 求 大 大 提高 


不 同 
之 处 


1.2 会 计数 据 处 理 的 方法 


20 世纪 80 年 代 中 期 ， “数据 库 之 父 ” William H.Inmon 在 他 的 《建立 数据 库 》 
书 中 首次 明确 了 数据 库 的 概念 。 即 “数据 库 ” 是 在 企业 管理 和 决策 中 面向 主题 的 、 集 
成 的 、 与 时 间 相 关 的 、 不 可 修改 的 数据 集合 ， 用 以 支持 经 营 管理 中 的 决策 制定 过 程 。 


1.2.1 会 计数 据 库 的 建立 


作为 企业 实施 决策 的 支持 工具 ， 数 据 库 的 结构 在 理论 上 并 没有 固定 的 、 严 格 的 
规定 ， 而 是 随 企业 规模 、 决 策 类 型 、 数 据 特点 的 不 同 而 改变 。 在 有 关 数 据 库 体 系 结 
构 的 多 种 理论 中 ， 着 眼 于 体系 部 件 功能 的 “三 层 结构 ”理论 得 到 了 最 广泛 的 接受 。 
从 各 部 件 的 功能 来 分 析 ， 数 据 库 在 逻辑 上 可 以 分 为 三 个 层次 ， 即 数据 获取 /管理 层 、 
数据 存储 层 与 数据 分 析 / 应 用 层 ， 如 图 1-1 所 示 。 
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图 1-1 数据 库 结 构图 


有 省 吕 / 尖 党 沸 洋 
满 炎 让 


1. 数据 获取 /管理 层 


数据 库 中 保存 的 业务 数据 内 容 来 自 多 个 数据 源 ， 这 些 数据 源 提供 的 数据 并 非 都 
是 理想 状态 的 ， 存 在 各 种 缺陷 ， 必 须 经 过 适当 的 处 理 后 ， 才 能 导入 数据 库 ， 同 时 
数据 库 中 所 存储 的 内 容 ， 也 必须 进行 维护 ， 以 保证 系统 的 正常 运行 ， 这 些 都 是 数据 
获取 /管理 层 所 应 完成 的 任务 。 归 纳 起 来 ， 该 层 主要 负责 以 下 工作 : 

(1) 数据 库 的 定义 与 修改 

定义 数据 库 的 数据 来 源 、 数 据 的 组 织 方式 ， 并 根据 决策 的 需要 与 环境 的 变化 对 
这 些 内 容 进行 修改 ， 同 时 对 数据 库 的 元 数据 进行 管理 。 

(2) 数据 的 获取 

根据 已 制定 的 规则 ， 定 期 从 指定 的 数据 源 中 抽取 源 数 据 ， 并 按 规 则 对 数据 进行 
清洗 、 转 换 和 集成 ， 对 数据 库 的 内 容 定期 进行 校 验 和 清理 ， 核 查 数据 的 完整 性 和 有 
效 性 ， 处 理 因数 据 追 加 所 造成 的 数据 不 一 致 现象 ， 并 清除 失效 数据 : 

G) 数据 库 系 统 的 管理 

根据 既定 的 规则 和 实际 工作 情况 ， 实 施 数据 库 的 维护 、 安 全 管理 、 备 份 、 恢 复 
和 日 志 记 录 等 工作 。 

数据 获取 /管理 层 对 于 保证 数据 库 的 安全 性 、 稳 定性 和 有 效 性 而 言 ， 具 有 十 分 重 
要 的 作用 ， 但 该 层 并 不 面向 数据 库 的 一 般 用 户 ， 其 使 用 者 是 数据 库 的 设计 者 和 维护 


者 。 该 层 功能 的 实现 ， 可 以 采用 专门 设计 程序 的 方法 ， 也 可 以 部 分 借用 一 些 通 用 的 
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工具 来 完 

2. 数据 存储 层 

数据 存储 层 是 数据 库 的 主体 ， 所 存储 的 数据 包括 三 部 分 ， 其 一 是 从 外 部 数据 源 
抽取 ,经 清洗 、 转 换 处 理 ， 并 按 主题 组 织 存 放 的 业务 数据 ; 是 数据 库 的 元 数据 ， 
其 三 是 针对 不 同 的 数据 挖掘 和 分 析 主 题 而 生成 的 数据 集 。 

对 于 不 同 规模 和 应 用 目的 的 数据 库 而 言 ， 数 据 存储 层 的 构造 方式 不 尽 相同 。 用 
户 对 数据 库 的 要 求 集中 体现 在 两 个 方面 ， 一 是 灵活 性 ， 即 数据 库 可 以 提供 多 样 的 分 
析 功 能 ， 以 尽 可 能 地 满足 用 户 的 决策 需求 ， 二 是 高 效 性 ， 即 用 户 希 望 自己 的 分 析 需 
求 能 尽 可 能 快 地 获得 结果 。 为 了 兼顾 这 两 点 ， 在 有 些 数 据 库 的 数据 存储 层 中 ， 增 加 
了 “从 属 型 数据 集 ”。 在 数据 库 的 存储 层 中 ， 从 属 型 数据 集 并 不 表现 为 一 种 简单 的 、 
以 满足 部 门 级 需求 而 构建 的 简单 数据 集合 ， 而 是 数据 库 的 一 个 子 集 ， 它 与 数据 库 所 
服务 的 某 个 主题 相对 应 ， 是 数据 库 中 针对 该 主题 的 数据 在 逻辑 上 或 物理 上 的 分 离 。 
包含 有 从 属 型 数据 集 的 存储 层 ， 在 处 理 针对 某 个 特定 主题 的 查询 时 ， 只 需 在 对 应 的 
数据 集中 检索 ， 而 不 必 检 索 整 个 数据 库 ， 这 样 可 以 明显 提高 系统 的 使 用 性 能 。 

3. 数据 分 析 / 应 用 层 


数据 库 系 统 的 数据 分 析 / 应 用 层 ， 面 向 系统 的 一 般 用 户 ， 满 足 用 户 的 查询 需要 
并 以 适当 的 方式 向 用 户 展示 查询 、 分 析 的 结果 。 


1.2.2 多 种 需求 下 的 会 计数 据 处 理 


实现 会 计 信 息 化 后 ， 会 计数 据 的 常规 处 理 已 经 由 会 计 软 件 所 完成 ， 部 分 分 析 也 
逐步 在 会 计 软 件 中 得 以 实现 。 但 是 ， 管 理 的 需要 是 变化 的 ， 固 化 的 软件 不 可 能 完全 
满足 管理 对 会 计 信 息 的 需要 。 再 者 ， 会 计数 据 的 分 析 往 往 需要 企业 的 其 他 数据 和 外 
部 数据 ， 这 在 会 计 软件 或 ERP 软件 中 往往 都 不 能 充分 满足 。 因 此 ， 采 用 其 他 辅助 工 
具 来 处 理 一 些 管理 上 对 会 计数 据 的 需求 ， 就 显得 十 分 必要 。 

会 计数 据 的 辅助 处 理工 具有 很 多 ， 高 端的 有 BI( 商 业 智能 )， 日 常常 用 的 则 是 
Excel 类 表格 处 理工 具 。 

在 具体 的 单位 使 用 会 计 系统 ， 如 果 有 分 支 机 构 ， 一 般 存 在 以 下 情况 : 一 是 全 部 
是 统一 的 一 个 品牌 会 计 软件 ， 或 者 是 同一 品牌 但 是 不 同 品种 的 会 计 软件 ;二 是 存在 
多 种 品牌 会 计 软件 。 当 然 ， 这 些 会 计 软件 可 能 是 ERP 软件 的 其 中 一 部 分 。 其 处 理 流 
程 与 方式 如 图 1-2 所 示 。 
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图 财务 管理 数据 处 理 技 术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


图 1-2 数据 处 理 流程 示意 图 


1.2.3 会 计数 据 分 析 与 利用 


会 计 信息 化 的 目的 就 是 提高 管理 水 平 ， 数 据 挖掘 (Data Mining, DM) 的 目的 是 从 
大 量 数据 中 寻找 有 用 的 信息 ， 它 可 通过 切片 旋转 、 钻 取 等 方式 ， 对 同一 层面 的 数据 
从 不 同 的 角度 进行 分 析 ， 即 转换 分 析 问 题 的 角度 及 对 数据 的 细节 从 不 同 的 层次 进行 
观察 ， 从 而 为 决策 提供 依据 。 有 具体 地 说 是 为 用 户 提 供 一 种 决策 支持 工具 ， 使 用 户 在 
决策 分 析 的 过 程 中 把 注意 力 集中 在 分 析 数 据 上 。 


1. 数据 挖掘 


数据 挖掘 (Data Mining) 就 是 从 大 量 的 、 不 完全 的 、 有 噪声 的 、 模 糊 的 、 随 机 的 
数据 中 ， 提 取 隐 含 在 其 中 的 、 人 们 事先 不 知道 的 、 但 又 是 潜在 有 用 的 信息 和 知识 的 
过 程 。 最 后 ， 人 们 运用 这 些 信息 帮助 、 影 响 决策 。 数 据 挖掘 不 仅 是 面向 特定 数据 库 
的 简单 检索 查询 调用 ， 而 且 要 对 这 些 数据 进行 微观 、 中 观 乃 至 宏观 的 统计 、 分 析 、 
综合 和 推理 ， 以 指导 实际 问题 的 解决 ， 企 图 发 现 各 因素 之 间 的 相互 关联 ， 甚 至 利用 
已 有 的 数据 对 未 来 的 活动 进行 预测 。 

数据 挖掘 示意 图 具体 如 图 1-3 所 示 。 


一 信息 
=- 隐藏 的 
评价 / 
数据 库 | 一 其 | 数据 控 气 工具 有 效 的 评价 /分 D> 
实用 的 a 


图 1-3 数据 挖掘 示意 图 
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数据 挖掘 与 传统 的 数据 分 析 (如 查询 、 报 表 ) 的 差别 在 于 : 数据 挖掘 能 通过 数据 
挖掘 工具 转换 审视 问题 的 角度 ， 挖 掘 隐藏 的 信息 ， 发 现 被 忽略 的 要 素 。 因 此 数据 挖 
据 所 得 到 的 信息 应 具有 事前 未 知 、 有 效 和 实用 三 大 特征 。 

2. 数据 挖掘 的 范围 


在 商业 应 用 里 ， 数 据 挖掘 表 现 为 在 大 型 数据 库 里 面 搜索 有 价值 的 商业 信息 ， 这 
就 需要 详细 地 过 滤 巨 量 的 数据 ， 并 且 需 要 智能 且 精 确 地 定位 潜在 价值 的 所 在 。 数 据 
挖掘 的 范围 主要 有 以 下 两 个 方面 

(CD 趋势 预测 

在 大 型 数据 库 里 找寻 潜在 的 预测 信息 。 传 统 上 需要 很 多 专家 花费 大 量 时 间 来 进 
行 分 析 和 研究 问题 ， 现 在 可 以 快速 而 直接 地 从 数据 中 找到 答案 。 

C2) 探测 以 前 未 发 现 的 模式 

数据 挖 气 工 具 扫描 整个 数据 库 并 辨认 出 那些 隐藏 着 的 模式 ， 比 如 通过 分 析 零 售 
数据 来 辨别 那些 表面 上 看 起 来 没 联系 但 实际 上 却 存在 着 密切 关系 的 产品 。 

在 商业 应 用 中 有 一 个 经 典 的 例子 ， 通 过 数据 挖掘 技术 ， 商 家 发 现 了 在 连锁 超市 
中 小 孩 的 尿布 和 啤酒 之 间 有 着 惊人 的 联系 。 国 外 一 家 调查 公司 通过 数据 控 气 技术 对 
顾客 购物 禾 进 行 分 析 以 协助 货架 布置 ， 分 析 促销 活动 时 间 、 促 销 商品 组 合 等 商业 活 
动 。 结 果 发 现 了 一 个 有 趣 的 现象 ， 因 周末 年 轻 的 父亲 们 在 采购 小 孩 尿布 时 会 同时 买 
上 几 瓶 啤酒 ， 从 而 导致 啤酒 销量 大 增 。 根 据 这 一 分 析 结 果 ， 商 家 在 周末 会 有 意 在 卖 
小 孩 尿布 邻近 的 地 方 布置 啤酒 促销 活动 。 这 个 案例 给 我 们 一 个 启示 ， 通 过 数据 控 据 
技术 对 市 场 销售 历史 状况 进行 分 析 ， 可 以 确定 营销 的 有 效 性 。 

3. 数据 挖掘 过 程 


数据 挖掘 的 基本 过 程 和 主要 步骤 如 图 1-4 所 示 。 


站 应 用 
选择 数据 | 。 预 处 理 选择 挖掘 | 分 析 和 评价 | 


1-4 数据 挖掘 过 程 图 


(1) 界定 取 数 对 象 
明确 取 数 对 象 的 范围 ， 选 择 目标 数据 集 。 
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(2) 数据 预 处 理 

去 除 无 关 数 据 ， 确 认 数 据 的 品质 。 

G3) 数据 转换 

找到 数据 的 特征 并 提出 假设 , 选取 数据 挖掘 算法 (如 汇总 、 分 类 、 回归 、 聚 类 等 )， 
提取 规则 。 

(4) 数据 挖掘 

使 用 合适 的 挖掘 算法 自动 对 数据 进行 挖掘 。 

(5) 分 析 和 评价 

解释 并 评估 结果 ， 去 掉 无 实用 价值 的 信息 。 

最 后 将 分 析 所 得 到 的 知识 集成 到 业务 信息 系统 中 。 


4. 数据 挖掘 方法 


数据 挖掘 技术 历经 数 十 年 的 发 展 ， 这 些 成 熟 的 技术 ， 加 上 高 性 能 的 关系 数据 
库 引擎 以 及 广泛 的 数据 集成 ， 让 数据 挖掘 技术 在 当前 的 数据 库 环 境 中 进入 了 实用 
阶段 。 数 据 挖掘 利 用 的 技术 越 多 ， 得 出 的 结果 精确 性 就 越 高 。 数 据 挖掘 方 法 主要 
有 如 下 几 种 ; 

(1) 关联 分 析 

利用 关联 规则 进行 数据 挖掘。 关联 分 析 的 目的 是 挖掘 隐藏 在 数据 问 的 相互 关系 ， 
它 能 发 现 数据 库 中 所 分 析 对 象 之 问 的 关系 。 

(2) 序列 模式 分 析 

分 析 数 据 间 的 前 后 序列 关系 。 每 个 序列 是 按照 交易 时 间 排列 的 一 组 交易 集 , 序列 
模式 分 析 的 目的 是 在 给 定 的 序列 数据 库 中 ， 得 出 该 数据 库 中 出 现 的 高 频 序列 。 

G) 分 类 分 析 

通过 分 析 数 据 库 中 的 数据 ， 为 每 个 类 别 做 出 准确 的 描述 ， 建 立 分 析 模型 或 挖 据 
出 分 类 规则 ， 然 后 用 这 个 分 类 规则 对 其 他 数据 库 中 的 记录 进行 分 类 。 目 前 已 有 多 种 
分 类 分 析 模 型 得 到 应 用 ， 如 线性 回归 模型 、 决 策 树 模型 、 基 本 规则 模型 和 神经 网 络 
模型 

(4) 聚 类 分 析 

通过 分 析 数 据 库 中 的 记录 数据 ， 根 据 一 定 的 分 类 规则 ， 合 理 地 划分 记录 集合 ， 
定 每 个 记录 所 在 的 类 别 。 它 所 采用 的 分 类 规则 是 由 聚 类 分 析 工 具 决 定 的 。 珍 类 分 析 的 
方法 很 多 ， 其 中 包括 系统 聚 类 法 、 分 解法 、 加 入 法 、 动 态 聚 类 法 、 模 糊 聚 类 法 、 运 敌 
方法 等 。 采 用 不 同 的 聚 类 方法 ， 对 于 相同 的 记录 集合 可 能 有 不 同 的 划分 结果 。 

5. 智能 信息 分 析 


企业 各 个 角落 的 数据 经 过 整理 和 汇总 后 就 形成 信息 ， 对 信息 的 分 析 和 研究 可 以 
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形成 知识 ， 知 识 经 过 升华 成 为 智能 。 

传统 的 信息 管理 系统 只 是 完成 了 初步 的 工作 ， 充 当 一 种 汇总 和 整理 数据 的 电 算 
化 工具 而 已 。 这 也 是 为 什么 中 国 很 多 已 经 用 上 了 ERP 软件 系统 的 企业 的 领导 体会 不 
到 ERP 软件 带 来 巨大 效果 的 原因 。 他 们 通过 ERP 软件 得 不 到 直观 的 有 关 整 个 企业 
的 知识 ， 更 不 用 说 通过 ERP 软件 寻求 解决 问题 的 智能 。 

实施 智能 化 需要 有 正确 的 数据 ， 并 将 这 些 面向 作业 的 数据 转化 为 面向 分 析 的 数 
据 ， 然 后 从 这 些 面向 分 析 的 数据 中 提取 、 分 析 和 发 据 其 蕴涵 的 规律 。 相 应 地 ， 会 计 软 
件 系统 提供 了 数据 库 、 在 线 分 析 OLAP(On-Line Analysis Process) 及 数据 挖掘 (Data 
Mining) 三 项 技术 来 完成 提取 、 分 析 和 发 气 这 三 项 工作 。 实现 商业 智能 对 ERP 软件 产 
品 的 技术 有 较 高 的 要 求 。 系 统 必须 具备 这 样 的 体系 结构 和 技术 ， 能 够 把 分 散在 各 个 部 
门 、 各 个 分 公司 的 数据 都 汇集 到 一 起 ， 利 用 OLAP 和 数据 库 的 技术 加 以 处 理 。 

现在 很 多 会 计 软件 在 开发 之 初 ， 就 构建 在 相对 分 散 的 体系 结构 上 ， 企 业 的 各 个 
部 门 都 是 一 个 个 信息 孤岛 ， 彼 此 之 间 的 信息 很 难 共享 。 不 消除 信息 孤岛 ， 没 有 整合 
的 信息 ， 也 就 谈 不 上 智能 。 


1.3 复习 思考 题 


1. 简 答 题 


(GD) 什么 叫 会 计数 据 处 理 ? 

(2) 会 计数 据 处 理 的 特点 是 什么 ? 

(3) 简 述 会 计数 据 处 理 的 流程 。 

(4) 会 计数 据 分 析 有 哪些 技术 实现 方法 ? 
(5) 简 述 数据 挖掘 的 主要 步骤 。 

2. 判断 题 


(1) 利用 关联 规则 进行 数据 挖掘, 能 够 对 数据 库 中 的 对 象 进行 有 效 的 分 类 .(  ) 

(2) ERP 软件 系统 是 通过 数据 挖掘 这 种 技术 来 完成 提取 、 分 析 和 发 气 这 3 项 工 
作 的 。( ) 

(3) 数据 挖掘 主要 应 用 在 小 型 财务 软件 中 ， 大 型 财务 软件 较 少 应 用 。(  ) 

3. 单项 选择 题 


(1) 会 计数 据 处 理 的 特点 ， 是 其 特点 之 一 。 
A. 方便 审计 B. 方便 纳税 。 C. 方便 存储 D. 方便 打印 
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(2) 会 计数 据 分 析 ， 除 财务 软件 本 身 提 供 的 外 ， 还 可 以 通过 等 实现 。 
A. 数据 挖掘 分 析 工 具  B.Word  C.Windows D. Linux 
(3) 数据 挖掘 所 得 到 的 信息 应 具有 、 有 效 和 实用 三 大 特征 。 


A. 相关 B. 明确 C. 事前 未 知 D. 客观 
(4) 利用 序列 模式 分 析 进 行 数据 挖掘 的 目的 是 得 到 数据 库 中 的 g 
A. 相关 对 象 B. 高 频 序列 C. 低频 序列 D. 对 象 的 分 类 
(5) 数据 经 过 整理 和 汇总 形成 信息 ， 而 对 信息 的 分 析 和 研究 可 以 形成 
A. 知识 B. 智能 C. 规律 D. 规则 
4. 多 项 选择 题 
(1) 会 计数 据 处 理 的 过 程 分 为 ， 数 据 存储 。 
A. 数据 收集 B. 数据 校 验 。 C. 数据 加 工 。D. 数据 传输 
(2) 数据 库 在 逻辑 上 可 以 分 为 三 个 层次 。 
A. 数据 获取 /管理 层 B. 数据 存储 层 
C. 数据 分 析 / 应 用 层 D. 数据 库 


(3) 数据 存储 层 是 数据 库 的 主体 ， 所 存储 的 数据 包括 三 部 分 p 
A. 从 外 部 数据 源 抽取 ,经 清洗 、 转 换 处 理 ， 并 按 主 题 组 织 存放 的 业务 数据 
B. 数据 库 的 元 数据 
C. 针对 不 同 的 数据 挖掘 和 分 析 主 题 而 生成 的 数据 集 
D. 数据 过 滤 
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第 2 章 
Excel 基 本 应 用 


2.1 了 Excel 2007 的 基本 操作 


Microsoft Office Excel 2007 是 美国 微软 公司 Microsoft Office 2007 办 公 套 件 
Excel 的 最 新 版 本 ， 它 所 具有 的 强大 功能 使 之 成 为 最 流行 的 表格 制作 和 数据 统计 办 
公 软 件 。Excel 2007 较 之 以 前 的 版 本 ， 主 要 在 用 户 界 面 、 数 据 容 量 、 主 题 和 样式 、 
OLAP 公式 和 多 维 数据 集 函 数 、 表 格 管理 、 数 据 透 视 表 、 连 接 外 部 数据 、 打 印 体验 
等 方面 进行 了 较 大 的 改进 。 


2.1.1 ”Excel 2007 的 启动 


方式 一 : 启动 Excel 2007 的 常规 方法 实际 上 就 是 运行 一 个 应 用 程序 的 操作 。 具 
体 步 骤 如 下 。 

(1) 单 击 屏幕 左下 方 的 “开始 ”按钮 ， 运 行 “ 开 始 ” 菜 单 。 

(2) 将 鼠标 指针 指向 “程序 ”处 ， 系 统 自动 显示 “程序 ”的 子 菜单 。 

(3) 在 子 菜单 中 单 击 “Microsoft Excel 2007” 选 项 。 

方式 二 : 双击 建立 在 Windows 桌面 上 的 Microsoft Excel 2007 的 快捷 方式 图 标 
(如 图 2-1 所 示 )， 就 可 以 直接 启动 Excel 2007。 


图 2-1 桌面 快捷 方式 


当 正 常 启动 Excel 2007 后 ， 首 先 看 到 的 是 Excel 的 标题 屏幕 ， 然 后 出 现 Excel 
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窗口 并 自动 创建 一 个 名 为 “Book1” 的 新 文档 ， 如 图 2-2 所 示 。 


图 2-2 Excel 窗口 


2.1.2 ”Excel 2007 的 退出 


方式 一 : 单 击 窗口 左上 角 的 Office 按钮 , 从 弹出 的 下 拉 菜单 中 选择 右 下 角 的 “ 退 
出 Excel” 按 钮 ， 就 可 以 从 程序 中 退出 ， 如 图 2-3 所 示 。 


| 


2-3 退出 Excel 
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方式 三 : 单 击 窗口 右上 角 的 关闭 窗口 按钮 ， 也 可 以 退出 Excel 2007。 
2.1.3 ”Excel 2007 工作 窗口 的 组 成 和 功能 


Excel 2007 工作 窗口 的 设计 比 之 前 的 版 本 更 加 人 性 化 。 当 Excel 2007 正常 启动 
后 ， 系 统 进 入 Excel 2007 的 主 窗口 界面 (如 图 2-2 所 示 )， 该 窗口 主要 由 Office 按钮 、 
快速 访问 工具 栏 、 标 题 栏 、 功 能 区 、 名 称 框 、 编 辑 栏 、 工 作 表 格 区 、 状 态 栏 、 视 图 
方式 和 显示 比例 按钮 及 缩放 滑 块 等 组 成 。 

(1) Office 按钮 。 图 按钮 位 于 主 窗口 的 左上 角 ， 单 击 该 按钮 ， 出 现下 拉 菜单 ， 显 
示 与 文件 操作 相关 的 命令 。 

(2) 快速 访问 工具 栏 。 加 时 人 和 工具 栏 也 位 于 主 窗口 的 左上 角 , 这 是 Excel 2007 
新 增 的 一 个 工具 栏 ， 其 中 有 3 个 默认 的 操作 按钮 一 一 “保存 ”、“ 撤 销 ” 和 “恢复 ” 
按钮 。 单 击 快速 访问 工具 栏 右 侧 的 下 拉 按 钮 可 以 自 定义 快速 访问 工具 栏 ， 添 加 用 户 
需要 的 按钮 。 

(3) 标题 栏 。 oe Mewsok Bee 标题 栏 位 于 工作 敌 顶 部 正中 位 置 ， 用 于 显示 工作 
簿 的 名 称 。 

(4) 功能 区 。 这 个 区 域 位 于 标题 栏 之 下 ， 如 图 2-4 所 示 。 在 Excel 2007 中 ， 系 
统 将 以 往 的 下 拉 式 菜单 改 为 更 加 直接 的 标签 式 菜单 。 功 能 区 主要 用 来 放置 各 种 常用 
的 菜单 选项 卡 ， 在 每 个 选项 卡 中 ， 根 据 功能 的 不 同 ， 又 分 组 放置 了 功能 相近 的 操作 
按钮 。 双 击 菜单 选项 卡 可 以 将 功能 区 隐藏 。 

i 关公 式 Mm。 风 视 四 开 &IR | 
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图 2-4 功能 区 


(5) 名 称 框 。 “各 一 名 称 框 位 于 功能 区 下 方 左 侧 ， 用 于 显示 被 激活 的 单元 
格 地 址 或 选 定 的 单元 格 、 名 称 、 范 围 或 对 象 。 向 名 称 框 中 输入 相应 的 字符 可 以 为 选 
定 的 单元 格 或 单元 格 区 域 自 定义 名 称 。 

(60) 编辑 栏 。 各 编辑 栏 位 于 名 称 框 右 侧 ， 其 中 显示 的 是 当前 单元 格 中 的 数 
据 或 公式 ， 用 户 可 以 对 单元 格 中 的 数据 进行 输入 、 删 除 和 修改 等 操作 。 

(7) 工作 表格 区 。 位 于 主 窗口 的 中 部 ， 占 据 了 窗口 的 大 部 分 区 域 ， 用 户 可 在 其 
中 进行 表格 的 制作 、 编 辑 、 数 据 输入 和 格式 设置 等 主要 操作 。 工 作 区 域 的 左 侧 为 行 
编号 ， 顶 部 为 列 编号 ， 底 部 为 工作 表 标 签 ， 用 于 显示 工作 表 的 名 称 ， 标 签 为 上 浮 状 
态 的 工作 表 为 当前 的 活动 工作 表 。 
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(8) 其 他 。“ 状 态 栏 ”、“ 视 图 方式 ”、“ 显 示 比 例 ” 按 钮 和 缩放 滑 块 ， 从 左 
到 右 依次 排列 在 工作 窗口 的 最 下 面 。 其 中 ， 状 态 栏 基 加 用 于 显示 当前 状态 ， 在 
Excel 2007 的 状态 栏 中 有 一 个 录制 宏 的 按钮 :视图 方式 蕊 可 包 括 “ 普 通 ”、“ 页 
面 布 局 ”和 “分 页 预览 ”3 个 按钮 ， 显 示 比 例 按 包 芭 Bi 加 可 设置 几 个 辐 
定 的 显示 比例 ， 通 过 拖 动 缩放 滑 块 可 以 任意 设置 显示 比例 。 


2.2 Excel 2007 电子 表格 的 组 成 与 结构 


了 解 表格 的 组 成 与 结构 是 学 习 Excel 2007 的 重要 基础 ,其 电子 表格 分 为 4 个 部 分 。 

1. 单元 格 

Excel 2007 电子 表格 由 许多 长 方 格子 组 成 ， 这 些 长 方 格子 就 称 为 单元 格 。 单 元 
格 是 电子 表格 的 最 小 单位 ， 在 单元 格 里 能 输入 字符 串 、 数 据 、 日 期 或 公式 等 信息 。 
单元 格 由 纵横 相交 的 线 组 成 ， 其 大 小 可 以 任意 改变 ， 只 要 将 鼠标 指针 移 到 行 号 区 域 
或 列 号 区 域 ， 在 两 个 行 号 (或 列 号 ) 相 邻 处 的 附近 会 发 现 指针 变 成 双向 箭头 ， 此 时 按 
住 左 键 拖 动 鼠标 就 可 改变 相应 的 单元 格 大 小 。Excel 以 列 号 和 行 号 唯一 确定 一 个 单 
元 格 ， 即 以 单元 格 地 址 来 表示 一 个 单元 格 。 例 如 ，Al 表示 第 A 列 (第 一 列 ) 第 1 行 的 
单元 格 。 一 个 单元 格 被 选中 后 ， 系 统 将 以 粗 线条 的 黑色 方 框 包围 ， 以 突出 显示 ， 同 
时 此 单元 格 的 名 称 (地 址 ) 会 显示 在 工作 表 左 上 方 的 文本 框 中 ， 单 元 格 的 内 容 会 显示 
在 右 侧 的 编辑 框 中 。 对 单元 格 的 编辑 可 以 直接 在 单元 格 中 进行 ， 也 可 以 在 编辑 框 中 
完成 。 最 小 单元 格 的 地 址 为 A1， 最 大 单元 格 的 地 址 为 ZZZ1048576。 

2. 单元 格 区 域 

单元 格 区 域 是 一 组 被 选中 的 单元 格 ， 它 们 可 以 相 邻 ， 也 可 以 彼此 分 离 。 对 一 个 
单元 格 区 域 的 操作 是 对 该 区 域 的 单元 格 执行 相同 的 操作 。 单 元 格 区 域 被 选 定 后 ， 这 
些 单元 格 都 会 变 深 ， 取 消 选 定 后 恢复 原来 的 颜色 。 取 消 单元 格 区 域 只 需 在 所 选 定 区 
域外 任意 处 单 击 鼠 标 左 键 即 可 。 

3. 工作 表 

工作 表 是 由 众多 排列 成 行 和 列 的 单元 格 构成 的 二 维 表格 , 最 多 可 包含 18 278 (A 
to ZZZ) 列 和 1 048 576 行 ， 其 中 能 存储 包含 字符 串 、 数 字 、 公 式 、 图 表 和 声音 等 信 
息 。 工 作 表 的 标识 是 工作 表 标 签 ， 单 击 工作 表 标 签 能 激活 相应 的 工作 表 ， 使 其 成 为 
当前 工作 表 ， 当 前 工作 表 只 能 有 一 个 。 
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4. 工作 筹 

工作 秒 即 通常 所 说 的 Excel 文档 (其 后 级 名 为 .xlsx), 其 中 可 包含 一 个 或 多 个 工作 
表 ， 它 像 一 个 “文件 夹 ”， 把 一 个 相关 的 表格 或 图 表 存 放 在 一 起 方便 处 理 。 一 个 工 
作 敌 默认 情况 下 包含 3 个 工作 表 ( 分 别 命名 为 Sheet1、Sheet2 和 Sheet3)， 最 多 可 包 
含 255 个 工作 表 。 


2.3 ”工作 簿 管理 


工作 短 是 Excel 中 重要 的 基础 概念 ， 一 个 工作 短文 件 会 包含 许多 工作 表 ， 这 些 
工作 表 可 以 储存 不 同类 型 的 数据 。 对 工作 短 的 管理 主要 有 创建 、 保 存 、 打 开 和 关闭 
工作 德 等 。 


2.3.1 ”创建 工作 簿 


启动 Excel 2007, 系统 将 自动 创建 一 个 新 的 工作 短 , 其 默认 的 文件 名 为 "Bookl ”; 
除了 通过 默认 方式 创建 工作 短 外 ， 还 可 以 使 用 “Office” 按 钮 新 建 工作 短 ， 具 体 步 
又 如 下 。 

(1) 单 击 主 窗 口 左上 角 的 “office” 按 钮 ， 在 出 现 的 菜单 中 选择 “新 建 ”命令 ， 
出 现 如 图 2-5 所 示 的 “新 建 工 作 夭 ”对 话 框 。 


引 rn 司 || 空 工作 往 
| 空白 文档 和 最 近 便 用 的 文档 
| | 


图 2-5 新 建 工 作 短 
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(2) 在 此 对 话 框 中 可 以 选择 新 建 工 作 敌 的 方式 (包括 新 建 空白 工作 敌 和 根据 模 
板 新 建 工作 敌 )。 选 择 新 建 工 作 矢 的 方式 并 选择 模板 样式 , 即 可 创建 一 个 新 的 工作 敌 。 


2.3.2 ”保存 工作 簿 


单 击 Excel 2007 主 窗口 快速 访问 工具 栏 上 的 “保存 ”按钮 可 以 打开 “另存 为 ” 
对 话 框 ， 如 图 2-6 所 示 。 保 存 操 作 与 其 他 应 用 软件 一 样 ， 可 以 在 文件 名 编辑 框 中 输 
入 文件 名 ， 选 择 想 要 保存 的 文件 类 型 和 文件 保存 位 置 后 单 击 “ 保 存 ” 按 钮 ， 即 可 实 
现 工作 短文 档 的 保存 。 默 认 的 文件 保存 类 型 为 “Excel 工作 短 (*.xlsx)”， 同 时 用 户 
也 可 以 根据 需要 选择 其 他 的 文件 类 型 。 


图 Tw 
To | 以 i 文件 合式 永存 工作 每 。 


回 se 局 信 启 用 去 的 Excel 工作 敌 (W) 
了 和 梅 工作 等 尿 存 为 基于 XML 二 启用 实 的 文件 格 


[sl sao 国 | 玉 
| Excel 二 进 制 工作 簿 (6) 
后 工作 和 时 存 为 优化 的 二 过 抽 文 件 必 式 /提高 
主 存 到 误 ， 


| ，| 国光 Excel 97-2003 工作 第 @) 
El EE 保存 一 个 与 Excel 97-2003 碗 全 知客 的 工作 第 
上 


-0 查找 其他 文件 格式 的 加 整 项 () 

| ful 其 他 格式 (0) 

打开 “号 存 为 ”对 活 竹 , 从 所 有 可 请 文件 妆 型 
中 闫 行 运 摇 ， | 
Ez 
图 2-6 文件 另存 为 对 话 框 


国教 学 提示 图 
为 了 保证 Excel 2007 的 向 下 兼容 性 ， 保 存 类 型 可 以 设 定 为 “Excel 97 - 2003 工 
作 簿 ”， 以 便 文件 能 够 在 Excel 的 早期 版 本 中 打开 和 使 用 。 


2.3.3 ”打开 工作 簿 


要 对 已 存在 的 工作 敌 进 行 编辑 ， 首 先 必须 打开 它 。 

单 击 主 窗口 左上 角 的 “Office” 按 钮 ， 在 出 现 的 菜单 中 选择 “打开 ”按钮 ， 出 
现 如 图 2-7 所 示 的 “打开 ”对 话 框 。 在 “查找 范围 ” 栏 中 确定 工作 敌 文 件 所 在 的 盘 
符 ， 再 确定 其 所 在 的 文件 夹 ， 并 单 击 要 打开 的 工作 敌 文 件 。 也 可 以 直接 在 “文件 名 ” 
栏 中 输入 工作 等 的 文件 名 ( 含 盘 符 路 径 )。 


as 2I0。 


名 ?但 Excel 圾 天 应 月 必 


在 “打开 ”对 话 框 中 ， 如 要 查询 某 一 特征 的 文件 ， 可 在 “文件 名 ” 框 中 键入 一 
个 通配符 (*) 和 一 个 句点 (.)， 然 后 键入 文件 的 扩展 名 ， 将 列 出 具有 给 定 扩展 名 的 所 
有 文件 。 


HD 
| 文理 并 型 四 :| 所 有 Excel 文件 


2-7 打开 对 话 框 


2.3.4 ”关闭 工作 簿 


对 于 不 再 使 用 的 工作 敌 可 以 将 其 关闭 ， 有 几 种 方法 可 以 完成 。 

方式 一 : 单 击 主 窗口 左上 角 的 “Office” 按 钮 ， 在 出 现 的 菜单 中 ， 选 择 “ 关 闭 ” 
命令 。 

方式 二 : 单 击 工作 适 窗 口 右 上 角 的 “关闭 ”按钮 。 

如 果 有 文件 在 编辑 后 没有 保存 就 关闭 ， 则 系统 会 弹出 如 图 2-8 所 示 的 对 话 框 。 
单 击 “ 是 ”按钮 则 保存 提示 的 工作 短 再 退出 ， 单 击 “ 否 ”按钮 则 不 保存 提示 的 工作 
短 即 退出 ， 单 击 “ 取 消 ” 按 钮 则 返回 编辑 状态 。 如 果 工 作 短文 件 在 关闭 之 前 已 被 保 
存 过 ， 则 不 会 弹出 此 对 话 框 。 


Nicrosoft Office Excel 


企 是 否 保存 对 “Bookl” 的 更 改 ? 


图 2-8 关闭 工作 敌对 话 框 
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2.4 工作 表 管 理 


在 Excel 的 工作 短文 件 中 可 以 包含 多 张 工作 表 ， 每 张 工作 表 可 以 存放 各 种 类 型 
的 数据 和 图 表 。 对 工作 表 的 管理 主要 包括 激活 工作 表 、 插 入 工作 表 、 重 命名 工作 表 、 
删除 工作 表 和 隐藏 工作 表 等 。 


2.4.1 激活 工作 表 


工作 短 中 包含 多 个 工作 表 时 ， 要 对 其 中 的 某 个 工作 表 进 行 操作 必须 先 激活 该 工 
作 表 。 当 打开 一 个 工作 憩 时 ， 默 认 情 况 下 有 一 个 工作 表 处 于 激活 状态 。 

方式 一 : 单 击 工作 表 标 签 激活 工作 表 。 工 作 表 标签 位 于 主 窗口 左下 侧 ， 单 击 工 
作 表 标签 可 以 激活 相应 的 工作 表 。 如 果 工 作 夭 中 的 工作 表 较 多 ， 需 要 使 用 的 工作 表 
的 标签 没有 显示 出 来 时 ， 可 以 单 击 工作 表 标 签 左 侧 的 滚动 按钮 移动 工作 表 标 签 的 显 
示 内 容 ， 如 图 2-9 所 示 。 
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图 2-9 工作 表 标 签 


方式 二 : 使 用 右键 快捷 菜单 激活 。 在 如 图 2-9 所 示 的 工作 表 标 签 上 右 击 ， 将 出 
现 工作 表 名 列表 ， 单 击 一 个 工作 表 名 即 可 激活 该 工作 表 。 


2.4.2 插入 工作 表 


默认 情况 下 一 个 工作 矢 中 只 包含 3 个 工作 表 ， 用 户 可 以 根据 需要 插入 更 多 工作 
表 。 如 果 用 户 能 够 自己 创建 或 访问 Office Online 上 提供 的 工作 表 模 板 (工作 表 模 板 
是 指 创建 后 作为 其 他 相似 工作 表 基 础 的 工作 表 。 可 以 为 工作 短 和 工作 表 创建 模板 ， 
工作 敌 的 默认 模板 名 为 Book.xltx,， 工作 表 的 默认 模板 名 为 Sheet.xltx),， 则 可 以 基于 
该 模板 创建 新 工作 表 。 

方式 一 : 若 要 在 现 有 工作 表 的 末尾 快速 插入 新 工作 表 ， 则 单 击 屏幕 底部 的 “ 插 
入 工作 表 ” 命 令 。 如 图 2-10 所 示 。 


HH4 bh Sheetl | Sheet2 Sheet3 
图 2-10 插入 工作 表 
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方式 二 : 若 要 在 现 有 工作 表 之 前 插入 新 工作 表 ， 则 首先 选 定 工 作 表 ,在 “开始 ” 
选项 卡 上 的 “单元 格 ” 组 中 ， 单 击 “插入 ”， 然 后 单 击 “插入 工作 表 ” 即 可 插入 一 
个 新 的 空白 工作 表 。 如 图 2-11 所 示 。 


图 2-11 插入 命令 


方式 三 : 也 可 以 右 击 现 有 工作 表 的 标签 ， 然 后 单 击 “ 插 入 ”， 在 “常用 ”选项 
卡 上 ， 单 击 “ 工 作 表 ”， 然 后 单 击 “确定 ”按钮 。 

方式 四 : 如 果 要 一 次 性 插入 多 个 工作 表 ， 可 按 住 Shift 键 ， 然 后 在 打开 的 工作 
筹 中 选择 与 要 插入 的 工作 表 数 目 相同 的 现 有 工作 表 标 签 。 例如 ,需要 添加 三 个 新 工 
作 表 ， 则 选择 三 个 现 有 工作 表 的 工作 表 标 签 。 在 “开始 ”选项 卡 上 的 “单元 格 ” 组 
中 ， 单 击 “ 插 入 ”， 然 后 单 击 “插入 工作 表 ”。 或 者 右 击 所 选 的 工作 表 标签 ， 然 后 
单 击 “ 插 入 ”， 在 “常用 ”选项 卡 上 单 击 “ 工 作 表 ”， 然 后 单 击 “确定 ”按钮 。 


国教 学 提示 图 
如 何在 Excel 中 插入 自动 以 日 期 为 标签 名 称 的 工作 表 ? 
许多 做 财务 和 销售 的 用 户 每 天 都 需要 在 当月 的 Excel 工作 簿 中 插入 一 个 以 当前 
日 期 为 标签 名 称 的 工作 表 。 如 果 每 次 都 需要 手工 插入 一 个 新 的 工作 表 ， 再 对 工作 表 
标签 进行 重 命名 的 话 ， 显 得 有 些 繁 琐 。 可 以 先 新 建 一 个 宏 ， 输 入 代码 
“sheets.Add.Name = Format(Date,“m-d”)”， 然 后 自 定 义 一 个 快捷 按钮 放 到 工具 栏 
中 ， 将 新 建 的 宏 指定 给 该 按钮 ， 以 后 需要 插入 工作 表 时 只 需 单 击 该 按钮 就 可 以 了 。 
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2.4.3 重 命 名 工作 表 
工作 表 的 名 称 (或 标题 ) 出 现在 屏幕 底部 的 工作 表 标签 上 。 默 认 情况 下 ， 名 称 为 


Sheetl、Sheet2 等 ， 但 是 用 户 可 以 为 任何 工作 表 指 定 一 个 更 恰当 的 名 称 。 
首先 ， 在 “工作 表 标 签 ” 栏 上 ， 右 击 要 重 命名 的 工作 表 标 签 ， 然 后 单 击 “ 重 命 


人 


图 2-12 重 命名 工作 表 
2.4.4 删除 工作 表 


方式 一 : 在 “开始 ”选项 卡 上 的 “单元 格 ” 组 中 ， 单 击 “删除 ”旁边 的 箭头 ， 
然后 单 击 “删除 工作 表 ” 选 项 即 可 删除 当前 工作 表 。 
方式 二 : 还 可 以 右 击 要 删除 的 工作 表 的 工作 表 标 签 ， 然 后 单 击 “ 删 除 ”。 


2.4.5 隐藏 工作 表 
用 户 可 以 根据 自己 的 需要 设置 工作 表 的 可 见 性 。 选 中 需要 隐藏 的 工作 表 ， 然 后 
切换 到 “开始 ”选项 卡 中 ， 单 击 “单元 格 ” 组 中 的 “格式 ”按钮 ， 从 弹出 的 下 拉 列 


表 中 选择 “隐藏 和 取消 隐藏 ”中 的 “隐藏 工作 表 ” 选 项 ， 即 可 将 此 工作 表 隐藏 ， 如 
图 2-13 所 示 。 
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2.5 单元 格 区 域 管理 


在 已 建立 的 工作 表 中 进行 编辑 时 ， 常 常 需 要 把 单元 格 或 区 域 移 到 其 他 位 置 ， 或 
者 将 一 些 数据 同时 复制 到 其 他 表 中 。 


2.5.1 单元 格 区 域 的 选 定 


1. 选 定 一 个 单元 格 

方式 一 : 单 击 选 定 单元 格 即 可 。 被 选 定 的 单元 格 轮廓 线 将 呈现 高 亮度 。 

方式 二 : 按 F5 键 ， 弹 出 “定位 ”对 话 框 ， 在 对 话 框 中 “引用 位 置 ” 栏 输入 单 
元 格 地 址 ， 单 击 “ 确 定 ” 按 钮 ， 则 当前 活动 单元 格 光标 移动 到 指定 的 单元 格 中 。 

2. 选 定 多 个 单元 格 


(1) 连续 区 域 的 选 定 

方式 一 : 将 光标 放 在 第 一 个 欲 选 定 的 单元 格 上 , 将 鼠标 向 所 要 选 定 的 方向 拖 动 ， 
被 选 定 区 域 将 以 高 亮 显示 。 

方式 二 : 如 果 选 定 的 区 域 较 大 ， 可 借助 于 Shift 键 。 先 选 定 第 一 个 单元 格 ， 再 将 
光标 移 到 欲 选 定 区 域 的 最 后 一 个 单元 格 上 , 按 住 Shift 键 的 同时 单 击 这 个 单元 格 , 则 
从 第 一 个 单元 格 到 最 后 一 个 单元 格 之 间 所 有 的 单元 格 都 被 选 定 。 

方式 三 : 在 名 称 框 中 输入 单元 格 区 域 (或 该 区 域 的 名 称 )， 然 后 按 Enter 键 即 可 。 
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要 使 用 单元 格 区 域 的 名 称 ， 必 须 先 为 其 命名 。 选 择 要 命名 的 单元 格 区 域 ， 在 左 

上 和 角 的 名 称 框 中 输入 区 域名 称 并 按 Enter 键 即 可 ; 也 可 以 在 “公式 ”选项 卡 的 “ 定 

义 名 称 ” 组 中 选择 “定义 名 称 ”命令 ， 在 打开 的 “新 建 名称 ” 对 话 框 中 输入 名 称 后 

确定 即 可 ， 如 图 2-14 所 示 。 创建 好 的 名 称 可 以 被 所 有 工作 表 引 用 ,而 且 引 用 时 不 需 

要 在 名 称 前 面 添加 工作 表 名 (这 就 是 使 用 名 称 的 主要 优点 )， 因 此 名 称 引 用 实际 上 是 
一 种 绝对 引用 。 
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图 2-14 ”定义 单元 格 名 称 


方式 四 : 单 击 “编辑 ”菜单 中 的 “定位 ”命令 ， 系 统 出 现 “ 定 位 ”对 话 框 ， 在 
对 话 框 “引用 位 置 ” 栏 中 输入 单元 格 区 域 (如 A1:D5)， 并 单 击 “ 确 定 ” 按 钮 。 

方式 五 : 选择 该 区 域 中 的 第 一 个 单元 格 ， 然 后 按 F8 键 ， 使 用 箭头 键 扩展 选 定 
区 域 。 要 停止 扩展 选 定 区 域 ， 请 再 次 按 F8 键 。 

(2) 不 连续 区 域 的 选 定 

在 需要 选 定 多 个 区 域 时 ， 可 在 选 定 第 1 个 区 域 后 ， 按 住 Ctrl 键 不 放 ， 再 选 定 第 
2 个 、 第 3 个 …… 区 域 。 

G) 一 行 ( 列 ) 或 多 行 ( 列 ) 的 选 定 

方式 一 : 选 定 一 行 ( 列 )。 直 接 单 击 某 行 ( 列 ) 号 即 可 选 定 该 行 ( 列 )。 

方式 二 : 选 定 连续 多 行 ( 列 )。 选 定 首 行 ( 列 ) 号 ， 然 后 按 住 鼠 标 左 键 拖 动 到 所 需要 
的 最 后 一 行 ( 列 ) 号 。 

方式 三 : 选 定 不 连续 的 行 ( 列 )。 选 定 第 一 个 行 ( 列 ) 号 后 ， 按 住 Ctrl 键 不 放 ， 再 依 
次 选 定 其 他 行 ( 列 ) 号 即 可 。 

(4) 整 张 工作 表 的 选 定 


单 击 工作 表 左 上 角 (即行 号 1 的 上 方 ， 列 号 A 的 左边 )， 则 选 定 整 张 工 作 表 。 还 
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可 以 按 Ctrl+A 键 , 如 果 工 作 表 包 含 数据 , 按 Ctrl+A 键 可 选择 当前 区 域 . 按 住 Ctl+A 
键 1 秒 钟 可 选择 整个 工作 表 。 
要 取消 选择 的 单元 格 区域 ， 单 击 工作 表 中 的 任意 单元 格 即 可 。 


2.5.2 单元 格 区 域 的 引用 


一 个 单元 格 可 以 用 它 所 在 位 置 的 列 号 和 行 号 的 组 合 来 表示 ， 例 如 第 3 行 第 2 列 
所 对 应 的 单元 格 应 表示 为 “B3”。 

单元 格 引用 是 函数 中 最 常见 的 参数 ， 引 用 的 目的 在 于 标识 工作 表单 元 格 或 单元 
格 区 域 , 并 指明 公式 或 函数 所 使 用 的 数据 的 位 置 , 便于 它们 使 用 工作 表 各 处 的 数据 ， 
或 者 在 多 个 函数 中 使 用 同一 个 单元 格 的 数据 。 还 可 以 引用 同一 工作 敌 不 同 工 作 表 的 
单元 格 ， 甚 至 引用 其 他 工作 矢 中 的 数据 。 根 据 公式 所 在 单元 格 的 位 置 发 生变 化 时 ， 
单元 格 引 用 的 变化 情况 ， 可 将 引用 分 为 相对 引用 、 绝 对 引用 和 混合 引用 三 种 类 型 。 

(1) 相对 引用 : 以 存放 在 D2 单元 格 中 的 公式 “=SUM(A2:C2)” 为 例 ， 当 公式 
由 D2 单元 格 复制 到 D3 单元 格 后 ， 公 式 中 的 引用 也 会 变化 为 “=SUM(A3:C3)”。 
若 公式 自 D 列 向 下 继续 复制 ，“ 行 标 ” 每 增加 1 行 ， 公 式 中 的 行 标 也 自动 加 1。 

(2) 绝对 引用 : 如 果 上 述 公 式 改 为 “=SUM($A$3:$C$3)”， 则 无 论 公式 复制 到 
何 处 ， 其 引用 的 位 置 始 终 是 “A3:C3” 区 域 。 

(3) 混合 引用 : 混合 引用 有 “绝对 列 和 相对 行 ”， 或 是 “绝对 行 和 相对 列 ” 两 
种 形式 。 前 者 如 “=SUM($A3:$C3)”， 后 者 “=SUM(A$3:C$3)”。 

上 面 的 几 个 实例 引用 的 都 是 同一 工作 表 中 的 数据 ， 如 果 要 引用 同一 工作 禾 中 多 
张 工 作 表 上 的 数据 ,就 要 使 用 三 维 引用 。 假如 公式 放 在 工作 表 Sheetl 的 E6 单元 格 ， 
要 引用 工作 表 Sheet2“Al:A6” 和 Sheet3 的 “B2:B9” 区 域 进行 求 和 运算 ， 则 公式 
中 的 引用 形式 为 “=SUM(Sheet2!A1:A6.Sheet3!B2:B9)”。 也 就 是 说 三 维 引用 中 不 仅 
包含 单元 格 或 区 域 引 用 ， 还 要 在 前 面 加 上 带 “!” 的 工作 表 名 称 。 

假如 你 要 引用 的 数据 来 自 另 一 个 工作 短 , 如 工作 筹 Bookl 中 的 SUM 函数 要 绝 
对 引用 工作 短 Book2 中 的 数据 ， 其 公式 为 “=SUM([Book2]Sheetl!$A$1: $A$8， 
[Book2]Sheet2! $B $l: $B $8) ”， 也 就 是 在 原来 单元 格 引 用 的 前 面 加 上 
“[Book2]Sheetl!”。 放 在 中 括号 里 面 的 是 工作 短 名 称 ， 带 “!” 的 则 是 其 中 的 工作 
表 名 称 。 即 跨 工 作 短 引 用 单元 格 或 区 域 时 ， 引 用 对 象 的 前 面 必须 用 “!” 作 为 工作 表 
分 隔 符 ， 再 用 中 括号 作为 工作 筹 分 隔 符 。 
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三 维 引用 要 受到 较 多 的 限制 ， 例 如 不 能 使 用 数组 公式 等 。 
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2.5.3 单元 格 区 域 的 移动 


若 要 把 单元 格 中 的 数据 、 公 式 、 文 字 等 移动 到 另 一 位 置 ， 当 距离 较 短 时 ， 则 可 
直接 用 鼠标 拖 动 。 首 先 选 定单 元 格 区 域 ， 移 动 鼠 标 接触 边框 ， 当 鼠标 状态 改变 为 第 
头 时 ， 按 住 鼠标 左 键 即 可 拖 动 该 区 域 至 新 位 置 ， 松 开 和 鼠标 操作 完成 。 移 动 后 ， 原 内 
容 和 格式 均 保持 不 变 。 

当 需 移动 的 距离 过 长 时 ， 使 用 鼠标 拖 动 就 不 太 合适 。 此 时 ， 可 使 用 “ 剪 切 ”和 
“粘贴 ”操作 完成 移动 。 


2.5.4 单元 格 区 域 的 复制 


若 要 把 单元 格 区 域 的 内 容 复制 到 其 他 地 方 ， 先 选 定单 元 格 区 域 ， 右 击 ， 在 快捷 
菜单 中 选择 “复制 ” 命令 , 将 光标 移 至 新 位 置 ,再 一 次 右 击 , 在 快捷 菜单 中 选择 “ 粘 
贴 ”命令 即 可 完成 复制 操作 。 在 窗口 上 方 的 常用 工具 栏 中 也 有 这 两 个 命令 。 必 须 注 
意 ， 如 果 原 内 容 为 数字 或 字符 ， 则 原样 复制 ， 但 如 果 原 内 容 为 公式 或 函数 ， 则 需 注 
意 对 其 中 单元 格 区 域 地 址 的 引用 。 

用 拖 动 鼠标 的 方式 也 可 进行 复制 操作 ， 在 拖 动 时 必须 同时 按 住 Ctrl 键 不 放 。 


2.5.5 ”单元 格 区 域 的 插入 与 删除 


用 户 可 以 根据 需要 在 工作 表 中 活动 单元 格 的 上 方 或 左 侧 插入 空白 单元 格 ， 同 时 
将 同一 列 中 的 其 他 单元 格 下 移 或 将 同一 行 中 的 其 他 单元 格 右 移 。 同 样 ， 可 以 在 一 行 
的 上 方 插入 多 行 和 在 一 列 的 左边 插入 多 列 。 当 然 ， 也 可 以 删除 单元 格 、 行 和 列 。 

选取 要 插入 新 空白 单元 格 的 单元 格 区 域 ， 选 取 的 单元 格 数量 应 与 要 插入 的 单元 
格 数量 相同 。 例 如 ， 要 插入 5 个 空白 单元 格 ， 需 要 选取 5 个 单元 格 。 

在 “开始 ”选项 卡 上 的 “单元 格 ” 组 中 ， 单 击 “ 插 入 ”旁边 的 箭头 ， 然 后 单 击 
“插入 单元 格 ”。 也 可 以 右 击 所 选 的 单元 格 ,然后 在 弹出 的 快捷 菜单 中 选择 “插入 ” 
命令 ， 在 “插入 ”对 话 框 中 ， 选 择 单元 格 插入 的 具体 方式 ， 如 图 2-15 所 示 。 


图 2-15 插入 单元 格 
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需要 注意 的 是 ， 当 在 工作 表 中 插入 单元 格 时 ， 受 插入 影响 的 所 有 引用 都 会 相应 
地 做 出 调整 , 不 管 它们 是 相对 引用 还 是 绝对 引用 。 这 同样 适用 于 删除 单元 格 的 操作 。 
如 果 需 要 引用 自动 调整 ， 建 议 在 公式 中 尽 可 能 使 用 区 域 引 用 ， 而 不 是 指定 单个 单元 
格 。 也 可 以 插入 包含 数据 和 公式 的 单元 格 ， 方 法 是 复制 或 剪 切 它们 ， 右 击 要 粘贴 它 
们 的 位 置 ， 然 后 单 击 快捷 菜单 上 的 “插入 复制 单元 格 ” 或 “插入 剪 切 单元 格 ”。 
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如 果 要 快速 重复 插入 单元 格 ， 单 击 要 插入 单元 格 的 位 置 ， 然 后 按 CtrlHY 键 即 可 。 

在 一 行 的 上 方 插入 多 行 、 在 一 列 的 左边 插入 多 列 、 删 除 单元 格 与 删除 行 和 列 的 
操作 与 上 面相 似 。 


2.6 数据 处 理 


Excel 2007 表格 中 可 以 使 用 的 数字 格式 ， 如 下 表 2-1 所 示 。 


表 2-1_Excel 中 的 数据 格式 

格 式 说 了 明 
这 是 键入 数字 时 Excel 应 用 的 默认 数字 格式 。 大 多 数 情况 下 ，“ 常 规 ” 格 
式 的 数字 以 键入 的 方式 显示 。 然 而 ， 如 果 单元 格 的 宽度 不 够 显示 整个 数字 ， 


人 “常规 ” 格式 会 用 小 数 点 对 数字 进行 四 舍 五 入 。“ 常 规 ” 数字 格式 还 对 
较 大 的 数字 (12 位 或 更 多 位 ) 使 用 科学 计数 (指数 ) 表 示 法 

数值 这 种 格式 用 于 数字 的 一 般 表示 。 可 以 指定 要 使 用 的 小 数位 数 、 是 否 使 用 千 
位 分 隔 符 以 及 如 何 显示 负数 

货币 此 格式 用 于 一 般 货 币值 并 显示 带 有 数字 的 默认 货币 符号 ， 可 以 指定 要 使 用 


的 小 数位 数 、 是 否 使 用 千 位 分 隔 符 以 及 如 何 显示 负数 

会 计 专 用 这 种 格式 也 用 于 货币 值 ， 但 是 它 会 在 一 列 中 对 齐 货币 符号 和 数字 的 小 数 点 
这 种 格式 会 根据 用 户 指定 的 类 型 和 区 域 设置 (国家 /地 区 )， 将 日 期 和 时 间 系 
列 数值 显示 为 日 期 值 。 以 星 号 (*) 开 头 的 日 期 格式 响应 在 Windows“ 控 制 
面板 ”中 指定 的 区 域 日 期 和 时 间 设 置 的 更 改 ， 不 带 星 号 的 格式 不 受 “ 控 制 
面板 ”设置 的 影响 
这 种 格式 会 根据 用 户 指定 的 类 型 和 区 域 设置 (国家 /地 区 )， 将 日 期 和 时 间 系 
列 数 显示 为 时 间 值 。 以 星 号 (9) 开 头 的 时 间 格 式 响应 在 Windows“ 控 制 面板 ” 
中 指定 的 区 域 日 期 和 时 间 设 置 的 更 改 ， 不 带 星 号 的 格式 不 受 “ 控 制 面板 ” 
设置 的 影响 


日 期 


时 间 
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( 续 表 ) 
格 式 说 了 明 
百分比 这 种 格式 以 百分数 形式 显示 单元 格 的 值 ， 可 以 指定 要 使 用 的 小 数位 数 
分 数 这 种 格式 会 根据 用 户 指定 的 分 数 类 型 以 分 数 形式 显示 数字 
这 种 格式 以 指数 表示 法 显示 数字 ， 用 E+n 替代 数字 的 一 部 分 ， 其 中 用 10 
科学 记 数 的 n 次 客 乘 以 E( 代 表 指数 ) 前 面 的 数字 。 例如 , 2 位 小 数 的 “科学 记 数 ” 格 
式 将 12345678901 显示 为 1.23E+10, 即 用 1.23 乘 10 的 10 次 寡 。 用 户 
可 以 指定 要 使 用 的 小 数位 数 
文本 这 种 格式 将 单元 格 的 内 容 ( 即 使 键入 数字 ) 视 为 文本 , 并 在 用 户 键入 时 准确 显 
示 内 容 
特殊 这 种 格式 将 数字 显示 为 邮政 编码 、 电 话 号 码 或 社会 保险 号 码 
批注 是 附加 在 单元 格 中 ， 与 其 他 单元 格 内 容 分 开 的 注释 。 批 注 本身 并 不 是 
批注 工作 表 的 一 部 分 。 默 认 情况 下 ， 批 注 的 内 容 并 不 显示 在 工作 表 中 ， 但 加 有 
批注 的 单元 格 右上 角 显 示 一 个 红色 的 三 角形 批注 标识 符 。 当 光标 指向 该 单 
元 格 时 就 会 显示 批注 的 内 容 。 另 外 ， 批 注 内 容 在 打印 时 也 不 会 显示 
这 种 格式 允许 用 户 修改 现 有 数字 格式 代码 的 副本 。 这 会 创建 一 个 自 定义 数 
自 定义 字 格 式 并 将 其 添加 到 数字 格式 代码 的 列表 中 。 用 户 可 以 添加 200 到 250 


个 自 定义 数字 格式 ， 具 体 取决 于 安装 的 Excel 的 语言 版 本 
2.6.1 手动 输入 数据 


可 以 在 一 个 单元 格 、 多 个 单元 格 和 在 多 个 工作 表 中 输入 数字 ( 带 有 或 不 带 有 自动 
设置 小 数 点 )、 文 本 、 日 期 或 时 间 。 

具体 步骤 : 

(1) 在 工作 表 中 ， 单 击 一 个 单元 格 。 

(2) 键入 所 需 的 数字 或 文本 ， 然 后 按 Enter 或 Tab 键 。 若 要 在 单元 格 中 另 起 一 
行 开始 数据 ， 请 按 Alt+Enter 键 输入 一 个 换行 符 。 默 认 情 况 下 ， 按 Enter 键 会 将 所 
选 内 容 向 下 移动 一 个 单元 格 ，Tab 键 会 将 所 选 内 容 向 右 移 动 一 个 单元 格 。 


2.6.2 ”自动 输入 数据 


为 了 快速 输入 数据 ,用户 可 以 让 Microsoft Office Excel 自动 重复 数据 , 或 者 自 
动 填 充 数据 。 
1. 自动 重复 已 输入 的 项 目 


如 果 在 单元 格 中 键入 的 前 几 个 字符 与 该 列 中 已 有 的 项 相 匹 配 ，Excel 会 自动 提 
。30 。 
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示 其 余 的 字符 , 用 户 按 Enter 键 即 可 ,自动 完成 的 项 完全 采用 已 有 项 的 大 小 写 格式 。 
如 果 不 想 采 用 自动 提供 的 字符 ， 用 户 可 继续 键入 。 如 果 要 删除 自动 提供 的 字符 ， 按 
Backspace 按钮 。 但 Excel 只 能 自动 完成 包含 文字 或 文字 与 数字 的 组 合 的 项 。 只 包 
含 数字 、 日 期 或 时 间 的 项 不 能 自动 完成 。 


2. 使 用 填充 柄 填充 数据 


使 用 填充 柄 可 以 根据 用 户 建立 的 模式 自动 继续 数字 、 数 字 和 文本 的 组 合 、 日 期 
或 时 间 段 序列 。 

若 要 快速 填充 几 种 类 型 的 数据 序列 ， 可 以 选中 单元 格 并 拖 动 填充 柄 ， 填 充 柄 是 
位 于 选 定 区 域 右 下 角 的 小 黑 方块 。 当 用 光标 指向 填充 柄 时 ， 光 标 更 改 为 黑 十 字号。 
拖 动 填充 柄 之 后 , 会 出 现 “自动 填充 选项 ”按钮 图 ， 以 便 用 户 选 择 如 何 填 充 所 选 内 
容 。 用 户 可 以 选择 “ 仅 填 充 格式 ”选项 (只 填充 单元 格格 式 )， 也 可 以 选择 “不 带 格 
式 填 充 ” 选 项 (只 填充 单元 格 的 内 容 )， 如 图 2-16 所 示 。 


图 2-16 ”自动 填充 单元 格 
2.6.3 ”查找 和 替换 数据 


在 编辑 Excel 工作 表 时 ， 常 常 需要 定位 或 改动 某 些 字符 、 人 公式、 数值 和 批注 等 
内 容 ， 使 用 查找 和 替换 功能 可 以 极 大 地 提高 效率 。 查 找 功能 可 以 快速 找到 指定 的 数 
据 ， 替 换 功 能 可 以 将 指定 数据 替换 为 另外 的 内 容 。 具 体 步 骤 如 下 : 

(1) 在 “开始 ”选项 卡 中 ， 单 击 “ 编 辑 ” 组 中 的 “查找 和 替换 ”按钮 ， 或 在 下 拉 菜 
单 中 选择 “查找 ”或 “替换 ”命令 均 可 打开 “查找 和 替换 ”对 话 框 ， 如 图 2-17 所 示 。 


查找 和 替换 


E71 
查找 内 容 D: 上 [ EE 


选项) 》》 
查找 全 部 I) ]】 [ 查 拷 下 一 个 中) EE 
2-17 “查找 和 替换 ”对 话 杠 
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(2) 在 “查找 ”选项 卡 的 “查找 内 容 ” 框 中 输入 需要 查找 的 内 容 ， 按 Enter 键 
即 可 执行 查找 命令 。 选 择 “ 查 找 全 部 ”按钮 ， 则 在 该 对 话 框 的 下 部 显示 一 个 列表 ， 
提示 所 有 查找 结果 ; 选择 “查找 下 一 个 ”按钮 ， 则 会 在 工作 表 中 显示 查找 到 的 一 
个 结果 。 

(3) 切换 到 “替换 ”选项 卡 ， 在 “替换 为 ” 框 中 输入 需要 替换 的 内 容 ， 单 击 “ 全 
部 替换 ”或 者 “替换 ”可 以 实现 全 部 或 逐个 替换 功能 。 


2.6.4 设置 数据 格式 


1. 设置 字符 格式 


设置 字符 格式 指 设置 单元 格 中 文本 的 字体 、 字 形 、 字 号 及 字体 颜色 等 常见 字体 
设置 。 通 过 字符 格式 设置 ， 可 以 使 重要 的 数据 更 加 醒目 。 

设置 字符 格式 的 命令 可 以 在 “开始 ”选项 卡 的 “字体 ”组 中 找到 。“ 字 体 ” 组 
中 , 可 以 快速 设置 字体 、 字 号 、 字形、 字体 颜色 以 及 单元 格 填 充 色 等 ; 也 可 以 在 “ 设 
置 单元 格格 式 ” 对 话 框 中 设置 字符 格式 ， 选 定 需要 设置 的 单元 格 区 域 ， 单 击 “ 开 始 ” 
选项 卡 “ 字 体 ” 组 右 下 角 的 按钮 ， 打 开 “ 设 置 单元 格格 式 ”对 话 框 且 定 位 到 “字体 ” 
选项 卡 ， 在 其 中 可 以 完成 字符 格式 的 设置 ， 如 图 2-18 所 示 。 


设置 单元 格格 式 
数字 | 对 章 站 可 全 | 边民 ‖ 填充 | 保护 | 


颜色 CC); 
> 闸 洒 字体 0 
预览 


| 微软 卓越 haEbcc | 


图 2-18 “设置 单元 格格 式 ” 对 话 框 
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此 外 , 在 单元 格 上 右 击 时 弹出 浮动 条 , 通过 该 浮动 条 也 可 以 方便 地 设置 字符 格式 。 
2. 设置 数字 格式 


Excel 中 的 数字 格式 包括 常规 、 数 值 、 货 币 、 会 计 专 用 、 日 期 和 时 间 、 百 分 比 、 
分 数 、 科 学 记 数 、 文 本 、 特 殊 及 自 定 义 等 。 

设置 数字 格式 同样 可 以 在 “设置 单元 格格 式 ” 对 话 框 中 完成 。 默 认 情况 下 ， 输 
入 单元 格 的 数字 以 常规 格式 显示 ， 根 据 用 户 的 需要 首先 选中 单元 格 区 域 ， 单 击 “ 开 
始 ” 选项 卡 “ 数 字 ” 组 右 下 角 的 按钮 ， 打开“ 设置 单元 格格 式 ” 对 话 框 且 定 位 到 “ 数 
字 ” 选 项 卡 ， 如 图 2-19 所 示 。 在 “分 类 ”列表 框 中 用 户 可 选择 合适 的 数字 格式 ， 如 
选择 “会 计 专业 ”， 在 对 话 框 的 右 侧 会 出 现 选 择 “ 货 币 符号 ”的 下 拉 框 和 设置 “小 
数位 数 ” 的 调整 框 ， 以 及 预览 设置 格式 的 “示例 ”文本 框 ， 设 置 完毕 单 击 “ 确 定 ” 
按钮 即 可 。 


示例 

¥1.00 
小 数位 数 呈 ) |2 六 
货 符 号 (国家 /地 区 ) G): |¥ 


日 
上 地 罗 
IT 妆 : 


会 计 格 式 可 对 一 列 数 值 进行 货币 符号 和 小 数 点 对 齐 。 


图 2-19 设置 单元 格 数字 格式 


当然 ， 在 “开始 ”选项 卡 的 “数字 ”组 中 使 用 的 快捷 按钮 也 可 以 进行 数字 格式 
的 设置 。 

Excel 中 还 提供 了 自 定义 数字 格式 功能 。 在 “设置 单元 格格 式 ” 对 话 框 中 的 “ 数 
字 ” 选 项 卡 中 选择 “ 自 定义 ”， 根 据 提示 即 可 进行 自 定义 新 的 数据 格式 。 

3. 设置 单元 格格 式 

Excel 2007 提供 了 丰富 的 单元 格 和 工作 表 样 ， 用 户 可 以 任意 选择 自动 套用 格式 
的 功能 使 用 已 有 的 样式 和 格式 。 
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(1) 套用 表格 格式 

首先 选中 单元 格 区 域 ， 在 “开始 ”选项 卡 的 “样式 ”组 中 单 击 “ 套 用 表格 格式 ” 
按钮 ， 系 统 弹出 下 拉 列 表 ， 如 图 2-20 所 示 。 在 列表 中 根据 预览 选择 需要 套用 的 表格 
样式 ， 也 可 以 选择 “新 建 表 样式 ”选项 新 建 自己 喜欢 的 表格 样式 。 


= = -= - 
深 色 
== 
泌 | 新 结 表 栏 式 (N).… 
新 建 数据 适 视 表 栏 式 (P).… 


图 2-20 “套用 表格 样式 ”对 话 框 
(2) 套用 单元 格 样式 
首先 选中 单元 格 区 域 ， 在 “开始 ”选项 卡 的 “样式 ”组 中 单 击 “ 单 元 格 样式 ” 
按钮 ， 系 统 弹出 下 拉 列 表 ， 如 图 2-21 所 示 。 在 列表 中 可 以 选择 合适 的 单元 格 样式 ， 
也 可 以 选择 “新 建 单元 格 样式 ”选项 新 建 自己 喜欢 的 单元 格 样式 。 


aM 


荔 ? 但 Prcel 碟 夭 应 月 国 


好 差 和 适中 = 
[ss 规 2 适 p 

数据 和 模型 

| #e 文 锋 濡 元 格 _ 陋 而 | 
匡 和 ，=| 注 释 | 

标题 

标题 标题 1 标题 2 标题 3 标题 4 汇总 
主题 单元 术科 式 


20% - 强 ... 20% 一 强 ... 20% 一 强 ... 20% - 强 ... 20% - 强 ... 20% - 强 ... 
60% - 强 . . ， 上 560% = 强 :上 60 
强调 文字 . . ， 上 强调 文字 . . ， 上 58 调 详 字 | 


百分比 货币 货币 [0] 千 位 分 隔 千 位 分 隔 [o] = 


图 2-21 “单元 格 样式 ”对 话 框 


(3) 使 用 条 件 格 式 

条 件 格式 是 指 单元 格 的 格式 由 单元 格 的 数据 决定 ， 如 果 单元 格 中 的 数据 满足 给 
定 条 件 ， 则 可 应 用 相应 的 单元 格格 式 。 也 就 是 说 ， 条 件 格式 是 以 单元 格 中 的 数据 内 
容 来 决定 单元 格 的 格式 的 。 

首先 选中 单元 格 区 域 ， 在 “开始 ”选项 卡 的 “样式 ”组 中 单 击 “ 条 件 格式 ” 按 
钮 ， 系 统 弹出 下 拉 列 表 ， 如 图 2-22 所 示 。 在 该 菜单 中 可 以 选择 适当 的 规则 ， 应 用 于 
单元 格 的 格式 。 除 了 系统 提供 的 5 种 常用 的 规则 ， 用 户 也 可 以 对 规则 进行 管理 ， 包 
括 新 建 规则 、 清 除 规则 和 管理 规则 等 。 


2-22 “条 件 格式 ”对 话 框 


es。 35。 
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2.6.5 插入 符号 、 分 数 和 特殊 字符 


Excel 中 使 用 “符号 ”对 话 框 可 以 插入 键盘 上 没有 的 符号 (如 妈 和 @) 或 特殊 字 
符 ( 如 长 划 线 一 或 省 略 号 ...)， 还 可 以 插入 Unicode 字符 。Unicode 字符 是 Unicode 
Consortium 开发 的 一 种 字符 编码 标准 ， 该 标准 采用 多 个 字 节 代表 一 个 字符 ， 因 此 可 
以 使 用 单个 字符 集 代 表 世 界 上 几乎 所 有 的 书面 语言 。 

可 以 插入 的 符号 和 字符 的 类 型 取决 于 选择 的 字体 。 例 如 ， 有 些 字体 可 能 会 包含 
分 数 (%)、 国 际 字 符 (C，6&) 和 国际 货币 符号 ( 受 ， 圣 )。 内 置 的 Symbol 字体 包含 
箭头 、 项 目 符号 和 科学 符号 。 可 能 还 有 其 他 符号 字体 ， 如 Wingdings， 该 字体 包含 
装饰 符号 。 

需要 插入 符号 、 分 数 或 特殊 字符 时 ， 首 先 选 定 要 插入 符号 的 位 置 。 在 “插入 ” 
选项 卡 的 “文本 ”组 中 ， 单 击 “ 符 号 ”。 在 “符号 ”对 话 框 中 ， 单 击 “ 符 号 ”选项 
卡 ， 然 后 选择 要 插入 的 符号 ， 单 击 “ 插 入 ”按钮 即 可 。 如 图 2-23 所 示 。 


符号 


EEC 
字体 中 ): [ 噶 通 六 本) 


| 围 一 |. 7|8|9|: |; 


G I 
WIX|Y 
8 i 
Ww y 


) |%|&|) |※ 


来 自 肌 :Unicode (十 六 进 制 ) 


La ] 
图 2-23 插入 符号 


如 果 要 插入 的 符号 不 在 列表 中 ， 用 户 可 以 在 “字体 ” 框 中 选择 其 他 字体 。 

如 果 使 用 的 是 扩展 字体 (如 Arial 或 Times New Roman)， 则 会 出 现 “ 子 集 ” 列 
表 。 使 用 此 列表 可 以 从 语言 字符 的 扩展 列表 中 进行 选择 , 其 中 包括 希腊 语 和 俄语 等 。 

也 可 以 通过 特殊 字符 的 说 明快 速 查找 并 插入 特殊 字符 ， 单 击 “符号 ”对 话 框 中 
的 “特殊 字符 ”选项 卡 ， 单 击 要 插入 的 特殊 字符 ， 然 后 单 击 “ 插 入 ”按钮 。 


2.6.6 ”数据 排列 


对 Excel 数据 进行 排序 是 数据 分 析 不 可 缺少 的 组 成 部 分 。 用 户 可 能 需要 将 名 称 
。36 。 
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列表 按 字 母 顺序 排列 , 或 者 按 从 高 到 低 的 顺序 编制 产品 存货 水 平 列表 , 或 者 按 颜色 、 
图 标 等 对 行进 行 排序 。 对 数据 进行 排序 有 助 于 快速 直观 地 显示 数据 并 更 好 地 理解 数 
据 ， 有 助 于 组 织 并 查找 所 需 数据 ， 有 助 于 快速 有 效 做 出 决策 。 

使 用 Excel 的 排序 功能 可 以 对 一 列 或 多 列 中 的 数据 按 文本 (升序 或 降序 )、 数 字 
(升序 或 降序 ) 以 及 日 期 和 时 间 ( 升 序 或 降序 ) 进 行 排序 。 还 可 以 按 自 定义 序列 (如 大 、 
中 和 小 ) 或 格式 (包括 单元 格 颜 色 、 字 体 颜 色 或 图 标 集 ) 进 行 排序 。 大 多 数 排序 操作 都 
是 针对 “ 列 ” 进 行 的 ， 但 是 ， 也 可 以 针对 “ 行 ”进行 。 

排序 条 件 随 工作 矢 一 起 保存 ， 这 样 ， 每 当 打 开工 作 敌 时 ， 都 会 对 Excel 表 ( 而 
不 是 单元 格 区 域 ) 重 新 应 用 排序 。 如 果 希 望 保存 排序 条 件 ， 以 便 在 打开 工作 短 时 可 以 
定期 重新 应 用 排序 ， 最 好 使 用 表 。 这 对 于 多 列 排序 或 花费 很 长 时 间 创 建 的 排序 尤其 
重要 。 

排序 操作 的 具体 操作 步骤 如 下 : 

(1) 选择 单元 格 区 域 中 的 一 列 字 母 或 数字 数据 ， 或 者 确保 活动 单元 格 在 包含 字 
母 或 数字 数据 的 表 列 中 。 

CO) 在 “数据 ”选项 卡 上 的 “排序 和 筛选 ”组 中 ， 单 击 “ 排 序 ” 按 钮 ， 打 开 如 
图 2-24 所 示 的 对 话 框 。 


XX 击 了 条 件 四 ) ][ 芭 复制 和 件 ) ]】 * * [这 项 加] 口交 包 全 标题 和 D 
本 次序 | 
ED _ 汉 | | 隐 序 加 | 


图 2-24 “排序 ”对 话 框 


(3) 若 要 按 字 母 数 字 的 升序 排序 ， 单 击 “ 从 A 到 Z 排序 ”; 若 要 按 字母 数字 
的 降序 排序 ， 单 击 “ 从 Z 到 A 排序 ”。 

如 果 需 要 排序 的 序列 中 有 大 小 写 ， 可 以 执行 区 分 大 小 写 的 排序 。 在 “开始 ” 选 
项 卡 上 的 “编辑 ”组 中 ， 单 击 “ 排 序 和 筛选 ”， 然 后 选择 “ 自 定义 排序 ”， 在 “ 排 
序 ” 对 话 框 中 , 单 击 “ 选 项 ”按钮 ， 在 “排序 选项 ”对 话 框 中 ,选择 “区 分 大 小 写 ”， 
单 击 “确定 ”按钮 即 可 。 如 图 2-25 所 示 。 
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图 2-25 “排序 选项 ”对 话 框 


需要 注意 的 是 ， 检 查 所 有 数据 是 否 存 储 为 文本 。 如 果 要 排序 的 区 域 中 包含 的 数 
据 既 有 作为 数字 存储 的 ， 又 有 作为 文本 存储 的 ， 则 需要 将 所 有 数字 均 设置 为 文本 格 
式 ; 否则 ， 作 为 数字 存储 的 数据 将 排 在 作为 文本 存储 的 数据 前 面 。 具 体操 作为 ， 选 
定 需要 将 数据 设置 为 文本 格式 的 单元 格 区 域 ， 在 “开始 ”选项 卡 上 的 “字体 ”组 中 ， 
单 击 “ 设 置 单元 格 字体 格式 ”按钮 ， 单 击 “ 数 字 ” 选 项 卡 ， 然 后 在 “分 类 ”中 ， 选 
择 “ 文 本 ” 即 可 。 

此 外 ， 在 有 些 情况 下 ， 从 其 他 应 用 程序 导入 的 数据 前 面 可 能 会 有 前 导 空 格 ， 在 
排序 前 必须 删除 所 有 前 导 空格 。 


2.6.7 ”数据 筛选 


在 Excel 2007 中 使 用 自动 筛选 来 筛选 数据 ， 可 以 快速 而 又 方便 地 查找 和 使 用 单 
元 格 区 域 或 列表 数据 的 子 集 。 

筛选 过 的 数据 仅 显示 那些 满足 指定 条 件 的 行 ， 并 隐藏 那些 不 希望 显示 的 行 ， 而 
条 件 由 用 户 自 定 义 。 筛 选 数据 之 后 ， 对 于 筛选 过 的 数据 的 子 集 ， 不 需要 重新 排列 或 
移动 就 可 以 复制 、 查 找 、 编 辑 、 设 置 格式 、 制 作 图 表 和 打印 。 

用 户 还 可 以 按 多 个 列 进行 第 选 。 筛 选 器 是 累加 的 ， 这 意味 着 每 个 追加 的 筛选 器 
都 基于 当前 筛选 器 ， 从 而 进一步 减少 了 数据 的 子 集 。 

使 用 自动 筛选 可 以 创建 三 种 筛选 类 型 : 按 列 表 值 、 按 格式 或 按 条 件 。 对 于 每 个 
单元 格 区 域 或 列表 来 说 ， 这 三 种 筛选 类 型 是 互 扩 的。 例如， 不 能 既 按 单 元 格 颜色 又 
按 数字 列表 进行 筛选 ， 只 能 在 两 者 中 任 选 其 一 :也 不 能 既 按 图 标 又 按 自 定义 筛选 进 
行 筛选 ， 只 能 在 两 者 中 任 选 其 一 。 

为 了 获得 正确 的 筛选 结果 , 在 同一 列 中 不 能 使 用 混合 的 存储 格式 (例如 ,文本 和 
数字 同时 存在 )， 因 为 每 一 列 只 有 一 种 类 型 的 筛选 命令 可 用 。 如 果 使 用 了 混合 的 存储 
格式 ， 则 显示 的 命令 将 是 出 现 次 数 最 多 的 存储 格式 。 例 如 ， 如 果 该 列 包含 作为 数字 
存储 的 三 个 数据 和 作为 文本 存储 的 四 个 数据 ， 则 显示 的 筛选 命令 是 “文本 筛选 ”。 

as 38 。 
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筛选 的 具体 步骤 如 下 。 

(D 在 工作 表 中 ， 选 择 包含 字母 或 数据 的 单元 格 区 域 (应 确保 活动 单元 格 位 于 包 
含 字母 或 数字 数据 的 表 列 中 )。 

C@) 在 “数据 ”选项 卡 的 “排序 和 筛选 ”组 中 ， 单 击 “ 筛 选 ”。 如 图 2-26 所 示 。 


图 2-26 “筛选 ”命令 


(3) 单 击 列 标题 中 的 箭头 加。 在 文本 值 列 表 中 ， 选 择 或 清除 一 个 或 多 个 要 作为 
筛选 依据 的 文本 值 。 文 本 值 列 表 最 多 可 以 达到 10 000 项 。 如 果 列 表 过 大 ， 可 以 清除 
顶部 的 “( 全 选 )” 项 ， 然 后 选择 要 作为 筛选 依据 的 特定 文本 值 。 

(4) 创建 得 选 条 件 。 单 击 “ 文 本 筛选 ”命令 ， 然 后 单 击 一 个 比较 运算 符 命令 如 
图 2-27 所 示 。 


2-27 创建 得 选 条 件 


例如 ， 若 要 按 以 特定 字符 开头 的 文本 进行 筛选 ， 则 可 选择 “开头 是 ”， 或 者 ， 
若 要 按 在 文本 中 任意 位 置 有 特定 字符 的 文本 进行 筛选 ， 则 应 选择 “包含 ”。 
也 可 以 单 击 “ 自 定义 筛选 ”， 在 “ 自 定 义 自动 筛选 方式 ”对 话 框 的 右 侧 框 中 ， 
输入 文本 或 从 列表 中 选择 文本 值 。 
例如 ， 若 要 筛选 以 字母 “L” 开 头 的 文本 ， 则 输入 “L”， 或 者 ， 若 要 筛选 在 文 
本 中 任意 位 置 有 “bag” 的 文本 ， 则 输入 “bag”。 
as 39。 
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如 果 需 要 查找 某 些 字符 相同 但 其 他 字符 不 同 的 文本 ， 请 使 用 通配符 。 常 用 的 通 
配 符 有 两 个 “? ”代表 任何 单个 字符 ，“*” 代 表 任 意 连续 字符 串 。 例 如 ，“sm? 
也 ”可 能 找到 smith 和 smyth， 而 “*east” 可 能 找到 Northeast 和 Southeast。 

需要 注意 的 是 ， 若 在 “~”( 波 形 符 ) 后 跟 “? ”、“*” 或 “~” 符 号 ， 例 如 ， 
条 件 为 “AA06~?” 则 可 能 找到 “AA06?”， 即 此 处 的 “? ”不 再 是 通配符 。 

(5) 可 以 设置 多 个 筛选 条 件 。 在 第 二 个 条 上 日 中 ， 选 择 比较 运算 符 ， 然 后 在 右 框 
中 ， 输 入 文本 或 从 列表 中 选择 文本 值 。 若 要 对 表 列 或 选择 内 容 进 行 筛选 ， 以 便 两 个 
条 件 都 必须 为 True， 则 选择 “与 ”; 若 要 筛选 表 列 或 选择 内 容 ， 以 便 两 个 条 件 中 的 
任意 一 个 或 者 两 个 都 可 以 为 True， 则 选择 “或 ”。 

所 有 筛选 条 件 设 置 完成 后 单 击 “ 确 定 ” 按 钮 。 


2.6.8 数据 有 效 性 


1. 输入 数据 类 型 及 范围 的 限定 


使 用 数据 有 效 性 可 以 限制 数据 的 输入 ,防止 在 单元 格 中 输入 无 效 的 数据 。 例 如 要 
制作 一 张 员工 的 信息 表 ， 其 中 “出 生日 期 ”一 项 的 数据 类 型 显然 应 限定 为 日 期 ， 而 且 
时 间 跨 度 不 应 超过 100 年 ， 利 用 数据 有 效 性 可 以 满足 这 些 控制 要 求 ， 具 体 步骤 如 下 : 

Q) 选中 “出 生日 期 ”所 在 列 的 所 有 单元 格 ， 选 择 “ 数 据 ” 选 项 卡 中 的 “数据 
有 效 性 ”按钮 ， 在 如 图 2-28 所 示 的 弹出 菜单 中 选择 “数据 有 效 性 ”命令 ， 系 统 弹出 
数据 有 效 性 对 话 框 ， 如 图 2-29 所 示 。 


图 2-28 “数据 有 效 性 ”命令 


(2) 在 “设置 ”选项 卡 中 可 以 设置 单元 格 有 效 性 的 条 件 ， 默 认 的 情况 下 允许 输 
入 任何 值 。 在 “允许 ”下 拉 列 表 框 中 选择 “日 期 ”选项 ， 在 “数据 ”下 拉 列 表 框 中 
选择 “ 介 于 ”选项 ， 在 “开始 时 间 ” 和 “结束 时 间 ” 文 本 框 中 分 别 输入 “1950-1-1” 
和 “1990-1-1”， 如 图 2-29 所 示 。 
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口 对 有 同样 设 告 的 所 有 其 地 单元 格 应 用 这 些 更 改 人 E) 


ET Cea 
图 2-29 “数据 有 效 性 ”对 话 框 


(3) 为 方便 用 户 输入 正确 的 数据 ， 还 可 以 设置 一 些 提示 信息 和 输入 错误 信息 。 
切换 至 “输入 信息 ”选项 卡 ， 在 “标题 ”和 “输入 信息 ”两 个 文本 框 中 输入 提示 信 
息 ， 如 图 2-30 所 示 。 这 些 提示 信息 将 在 单元 格 被 选中 时 出 现在 单元 格 的 下 方 ， 提 示 
用 户 输入 数据 的 类 型 和 范围 等 。 如 图 2-31 所 示 。 


设置 [ 盖 天 济 间 || 出 二 区 省 | 输入 法 模式 | 
回 选 定单 元 格 时 显示 输入 信息 G) 

过 定单 元 格 时 显示 下 输入 信息 

标题 中 


2-30 “输入 信息 ”选项 卡 


2-31 输入 提示 


(4) 切换 至 “出 错 警 告 ” 选 项 卡 ， 在 “标题 ”和 “错误 信息 ”两 个 文本 框 中 输 
入 提示 信息 ， 如 图 2-32 所 示 。 若 在 单元 格 中 输入 “2000-1-1”， 系 统 将 弹出 “输入 
错误 ”提示 框 ， 如 图 2-33 所 示 。 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 
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设置 ‖ 输入 信息 | 出 钳 警 周 | 输入 法 模式 
史 ] 输入 无 效 数据 时 显示 出 错 警 告 G) 


输入 无 效 数据 时 显示 下 列 出 错 警告 
样式 邓 ): 标题 上 区) : 
停止 | 输入 错误 


错误 信息 E); 


目 期 值 只 能 介 于 1950-1-1 至 1990- ~ 
11 


图 2-32 “出 错 警告 ”选项 卡 


@ 日 期 值 只 能 介 于 1950-1-1 至 1990-1-1 
图 2-33 出错 提示 


2. 输入 预先 准备 好 的 数据 


在 Excel 的 使 用 过 程 中 ， 经 常 要 完成 大 量 的 数据 录入 ， 其 中 很 多 数据 需要 多 次 
重复 录入 ， 如 果 每 个 数据 都 通过 键盘 输入 ， 既 浪费 时 间 和 精力 又 容易 出 错 。 此 时 利 
用 数据 有 效 性 设置 ， 可 以 提高 数据 输入 的 速度 和 准确 性 ， 避 免 不 必 要 的 重复 劳动 。 

例如 ， 要 制作 一 张 员工 的 信息 表 ， 其 中 “所 属 部 门 ”一 项 的 数据 会 不 断 重复 几 
个 部 门 的 名 称 ， 这 时 如 果 可 以 利用 数据 有 效 性 把 几 个 部 门 名 称 集中 到 一 个 下 拉 列 表 
框 中 ， 在 输入 时 只 要 直接 在 下 拉 列 表 中 选择 即 可 ， 那 将 极 大 地 简化 操作 。 有 具体 步骤 
如 下 : 

(1) 选中 “所 属 部 门 ”所 在 列 的 所 有 单元 格 ， 选 择 “ 数 据 ” 选 项 卡 中 的 “数据 
有 效 性 ”按钮 ， 执 行 “ 数 据 有 效 性 ”命令 ， 进 入 数据 有 效 性 对 话 框 ， 在 “设置 ” 选 
项 卡 的 “允许 ”下 拉 列 表 框 中 选择 “序列 ”选项 ， 在 “来 源 ” 下 拉 列 表 框 中 输入 各 
部 门 的 名 称 ， 以 逗号 隔 开 ， 如 图 2-34 所 示 。 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 
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me 二 二 二 
设置 ”| 输入 信息 | 出错 警 肖 | 输入 法 模式 | 


有 效 性 条 件 
隐 许 外: 
序列 忽略 空 值 @) 
ET 提供 下 拉 箭头 中 


介 于 
来 源 G): RE 
办 公 室 ， 财务 部 ,经 营 部 ,库房 | 国 


图 2-34 设置 准备 好 的 数据 
(2) 完成 设置 后 ， 选 中 “所 属 部 门 ” 列 中 的 单元 格 ， 在 这 个 单元 格 的 右边 将 出 
现 一 个 下 拉 按 钮 ， 单 击 按钮 后 会 出 现 如 图 2-35 所 示 的 下 拉 列 表 框 ,选择 下 拉 列 表 框 
中 的 一 个 选项 ， 单 元 格 中 将 输入 相应 的 内 容 。 


图 2-35 “所 属 部 门 ”下 拉 列 表 框 


2.7 ”函数 的 使 用 


Excel 中 所 提 到 的 函数 其 实 是 一 些 预定 义 的 公式 ， 它 们 使 用 一 些 称 为 参数 的 特 
定数 值 按 特定 的 顺序 或 结构 进行 计算 。 用 户 可 以 直接 用 它们 对 某 个 区 域内 的 数值 进 
行 一 系列 运算 ， 如 分 析 和 处 理 日 期 值 和 时 间 值 、 确 定 贷款 的 支付 额 、 确 定单 元 格 中 
的 数据 类 型 、 计 算 平 均值 、 排 序 显 示 和 运算 文本 数据 等 。 例 如 ，SUM 函数 对 单元 
格 或 单元 格 区 域 进行 加 法 运算 。 

在 某 些 情况 下 ， 用 户 可 能 需要 将 某 函 数 作为 另 一 函数 的 参数 使 用 ， 这 就 是 嵌 套 
函数 的 含义 。 例 如 图 2-36 所 示 的 公式 使 用 了 赃 套 的 AVERAGE 函数 ， 并 将 结果 与 
50 相 比 较 。 这 个 公式 的 含义 是 : 如 果 单 元 格 F2 到 F5 的 平均 值 大 于 50， 则 求 F2 
到 FS 的 和 ， 和 否则 显示 数值 0。 
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帐 套 逊 数 


=IF(AVERAGE{F2:F5) >50,SUM{G2:G5),0) 
图 2-36 公式 例 1 


在 学 习 Excel 函数 之 前 , 需要 对 于 函数 的 结构 进行 必要 的 了 解 。 如 图 2-37 所 示 ， 
函数 的 结构 以 函数 名 称 开始 ， 后 面 是 左 圆 括号 、 以 逗号 分 隔 的 参数 和 右 圆 括号 。 如 
果 函 数 以 公式 的 形式 出 现 ,一 定 要 在 函数 名 称 前 面 键 入 等 号 (=)。 在 创建 包含 函数 的 
公式 时 ， 公 式 选 项 板 将 提供 相关 的 帮助 。 

等 号 ( 加 果 此 函数 位 于 公式 开始 位 置 ) 


函数 名 称 
才 数 


=SUM(A10,85:B10,50,37) 
各 参数 之 间 用 逗号 分 隔 
参数 用 括号 括 起 
图 2-37 公式 例 2 


在 Excel 中 如 何 使 用 函数 的 具体 步骤 如 下 。 
(D 选中 需要 输入 函数 的 单元 格 , 如 图 2-38 所 示 , 单 击 单元 格 C1, 出 现 编辑 栏 。 
(2) 在 C1 中 输入 “=”, 单 击 禹 按钮 打开 函数 列表 框 ， 从 中 选择 所 需 的 函数 ， 


如 图 2-38 所 示 。 


~ 


AVERAGE (numberl, number2,... ) 要 
返回 其 参数 的 算术 平均 值 ; 参数 可 以 是 数值 或 包含 数值 的 名 称 、 数 姐 或 引用 


Cwme ] my] 


图 2-38 “插入 函数 ”对 话 框 


G3) 当选 中 所 需 的 函数 后 ，Excel 2007 将 打开 “函数 参数 ”对 话 框 。 用 户 可 以 在 
这 个 选项 板 中 输入 函数 的 参数 ， 当 输入 完 参数 后 ， 在 “函数 参数 ”对 话 框 中 还 将 显 
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示 函 数 计算 的 结果 。 如 图 2-39 所 示 。 


| 


| 大 工 生动 条 各 ~ 租 二 二- 皮 亚 世 与 引用 - 局 定 义 各 称 ~ 也 
| 记 二 RE - 从 文本 -的 交角 到 - 拉 有 局 于 公式- < 
| a- 全 Be - 的 其他 下 - 全 禾 。 可 二 入 迁 内 窑 建 


=AVERAGE (A1 :D1) 


= {11,12,13,14} 


= 12.5 
]| 返回 下 参数 的 算术 平均 值 ; 参数 可 以 是 数值 或 包 合 数 什 的 名 称 、 败 姐 或 引用 
Jimber1; monberl, mosber2,，.， 是 用 于 计算 平均 秆 的 ! 到 255 个 数值 参数 


图 2-39 设置 函数 参数 


(4) 函数 的 参数 都 设置 好 后 ， 单 击 “ 确 定 ”按钮 ， 即 可 完成 函数 的 输入 。 
2.7.1 认识 函数 的 参数 


1. 常量 


常量 是 直接 输入 到 单元 格 或 公式 中 的 数字 或 文本 ， 或 由 名 称 所 代表 的 数字 或 文 
本 值 ， 例 如 数字 “2890.56”、 日 期 “2003-8-19” 和 文本 “ 王 明 ” 都 是 常量 。 但 是 公 
式 或 由 公式 计算 出 的 结果 都 不 是 常量 ， 因 为 只 要 公式 的 参数 发 生 了 变化 ， 它 自身 或 
计算 出 来 的 结果 就 会 发 生变 化 。 

2. 逻辑 值 


迪 辑 值 是 比较 特殊 的 一 类 参数 , 它 只 有 TRUE( 真 或 FALSE( 假 ) 两 种 类 型 。 例 如 
在 公式 “=IF(A3=0,"0",A2/A3)” 中 ，“A3=0” 就 是 一 个 可 以 返回 TRUE( 真 ) 或 
FALSE( 假 ) 两 种 结果 的 参数 。 当 “A3=0” 为 TRUE( 真 ) 时 在 公式 所 在 单元 格 中 填 入 
“0”， 否 则 在 单元 格 中 填 入 “A2/A3” 的 计算 结果 。 
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3. 数组 


数组 用 于 可 产生 多 个 结果 ， 或 可 以 对 存放 在 行 和 列 中 的 一 组 参数 进行 计算 的 公 
式 。Excel 中 有 常量 和 区 域 两 类 数组 。 前 者 放 在 “{}”( 按 Ctrl+Shift+Enter 键 自动 生 
成 ) 内 部 ， 而 且 内 部 各 列 的 数值 要 用 逗号 “,” 隔 开 ， 各 行 的 数值 要 用 分 号 “;” 隔 开 。 
假如 你 要 表示 第 1 行 中 的 56、78、89 和 第 2 行 中 的 90、76、80， 就 应 该 建立 一 个 
2 行 3 列 的 常量 数组 “ {56,78,89:90,76,80}”。 区 域 数组 是 一 个 矩形 的 单元 格 区 域 ， 
该 区 域 中 的 单元 格 共 用 一 个 公式 。 例 如 公式 “=TREND(B1:B3,A1:A3)” 作 为 数组 公 
式 使 用 时 ， 它 所 引用 的 和 矩形 单元 格 区 域 “B1:B3,A1:A3” 就 是 一 个 区 域 数组 。 


4. 错误 值 


使 用 错误 值 作为 参数 的 主要 是 信息 函数 ， 例 如 “ERROR.TYPE” 函 数 就 是 以 错 
误 值 作为 参数 。 它 的 语法 为 “ERROR.TYPE(error vaD”, 如 果 其 中 的 参数 是 #NUM!， 
则 返回 数值 “6”。 

5. 单元 格 引用 


单元 格 引用 是 函数 中 最 常见 的 参数 ， 引 用 的 目的 在 于 标识 工作 表单 元 格 或 单元 
格 区 域 , 并 指明 公式 或 函数 所 使 用 的 数据 的 位 置 , 便于 它们 使 用 工作 表 各 处 的 数据 ， 
或 者 在 多 个 函数 中 使 用 同一 个 单元 格 的 数据 。 还 可 以 引用 同一 工作 短 中 不 同 工 作 表 
的 单元 格 ， 甚 至 引用 其 他 工作 短 中 的 数据 。 

6. 谋 套 函数 


除了 上 面 介绍 的 情况 外 ， 函 数 也 可 以 是 嵌 套 的 ， 即 一 个 函数 是 另 一 个 函数 的 参 
数 ， 例 如 “=IF(OR(RIGHTB(E2,.D)="1"，RIGHTB(E2.1)="3"，RIGHTB(E2,1)="5"， 
RIGHTB(E2,1)="7"，RIGHTB(E2,1)="9")," 男 "," 女 ")”。 其 中 公式 中 的 正 函数 使 用 
了 嵌 套 的 RIGHTB 函数 ， 并 将 后 者 返回 的 结果 作为 正 的 逻辑 判断 依据 。 


7. 名 称 和 标志 

为 了 更 加 直观 地 标识 单元 格 或 单元 格 区域 ， 可 以 给 它们 赋予 名 称 ， 从 而 在 公式 
或 函数 中 直接 引用 。 例 如 “B2:B46” 区 域 存 放 着 学 生 的 物理 成 绩 ， 求 解 平 均 分 的 公 
式 一 般 是 “=AVERAGE(B2:B46)”。 在 给 B2:B46 区 域 命名 为 “物理 分 数 ” 以 后 ， 
该 公式 就 可 以 变 为 “=AVERAGE( 物 理 分 数 )”， 从 而 使 公式 变 得 更 加 直观 。 
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2.7.2” Excel 公式 中 的 符号 


1. 冒号 (:) 区 域 操作 符 

例 : Al:F13 表示 黄色 区 域 ，B2:F5 代表 灰色 区 域 。 

2. 空格 ( ) 相 交 区 域 操作 符 

例 : 假如 定义 ALF13 区 域 为 AA， 定 义 B2:L5 区 域 为 BB， 如 果 要 定义 CC 为 


AA 与 BB 相交 的 区 域 ( 即 B2:F5 区 域 )， 可 以 直接 编辑 公式 CC=AA BB( 即 图 中 灰色 
区 域 )。 也 可 以 用 sum 函数 验证 : Cl=SUM(AA BB)。 


3. 喜 号 (,) 合 并 区 域 操作 符 


例 : 定义 了 Al:F13 区 域名 称 为 AA， 定 义 了 B2:L5 区 域 为 BB， 若 要 定义 CC 
为 AA 与 BBB 合并 的 区 域 ( 即 A1:F13+B2:L5 区 域 ), 可 以 直接 编辑 公式 CC=AA,BB。 


2.7.3 ”函数 的 种 类 


Excel 函数 一 共有 11 类 ， 分 别 是 数据 库 函 数 、 日 期 与 时 间 函 数 、 工 程 函 数 、 财 
务 函数 、 信 息 函 数 、 风 辑 函 数 、 查 询 和 引用 函数 、 数 学 和 三 角 函 数 、 统 计 函 数 、 文 
本 函数 以 及 用 户 自 定义 函数 。 

(1) 数据 库 函 数 。 当 需要 分 析 数 据 清单 中 的 数值 是 否 符 合 特定 条 件 时 ， 可 以 使 
用 数据 库 工作 表 函 数 。 例 如 ， 在 一 个 包含 销售 信息 的 数据 清单 中 ， 可 以 计算 出 所 有 
销售 数值 大 于 1000 上 且 小 于 2500 的 行 或 记录 的 总 数 。Microsoft Excel 共有 12 个 
工作 表 函 数 用 于 对 存储 在 数据 清单 或 数据 库 中 的 数据 进行 分 析 ， 这 些 函数 的 统一 名 
称 为 Dfunctions， 也 称 为 D 函数 ， 每 个 函数 均 有 三 个 相同 的 参数 : database、field 
和 criteria。 这 些 参数 指向 数据 库 函 数 所 使 用 的 工作 表 区 域 。 其 中 参数 database 为 
工作 表 上 包含 数据 清单 的 区 域 。 参 数 field 为 需要 汇总 的 列 的 标志 ， 参 数 criteria 为 
工作 表 上 包含 指定 条 件 的 区 域 。 

(2) 日 期 与 时 间 函 数 。 通 过 日 期 与 时 间 函 数 ， 可 以 在 公式 中 分 析 和 处 理 日 期 值 
和 时 间 值 。 

G) 工程 函数 。 工 程 函数 用 于 工程 分 析 , 这 类 函数 中 的 大 多 数 可 分 为 三 种 类 型 : 
对 复数 进行 处 理 的 函数 、 在 不 同 的 数字 系统 (如 十 进 制 系统 、 十 六 进 制 系统 、 八 进 
制 系统 和 二 进 制 系统 ) 间 进行 数值 转换 的 函数 、 在 不 同 的 度量 系统 中 进行 数值 转换 
的 函数 。 


(4) 财务 函数 。 财 务 函 数 可 以 进行 一 般 的 财务 计算 ， 如 确定 贷款 的 支付 额 、 投 
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资 的 未 来 值 或 净 现 值 ， 以 及 债券 或 息 票 的 价值 。 财 务 函 数 中 常见 的 参数 

年 金 终 值 (fw): 在 所 有 付款 发 生 后 的 投资 或 贷款 的 价值 。 

期 间 数 (nper): 投资 的 总 支付 期 间 数 。 

年 金 现 值 (pv): 在 投资 期 初 的 投资 或 贷款 的 价值 。 例 如 ， 贷 款 的 现 值 为 所 借入 
的 本 金 数额 。 

利率 (rate): 投资 或 贷款 的 利率 或 贴现 率 。 

类 型 (type): 付款 期 间 内 进行 支付 的 间隔 ， 如 在 期 初 或 期 末 。 

(5) 信息 函数 。 可 以 使 用 信息 函数 确定 存储 在 单元 格 中 的 数据 类 型 。 信 息 函 数 
包含 一 组 称 为 IS 的 工作 表 函 数 ， 在 单元 格 满足 条 件 时 返回 TRUE。 例 如， 如 果 单 元 
格 包 含 一 个 偶数 值 ，ISEVEN 工作 表 函 数 返回 TRUE。 如 果 需 要 确定 某 个 单元 格 区 
域 中 是 否 存 在 空白 单元 格 , 可 以 使 用 COUNTBLANK 工作 表 函 数 对 单元 格 区 域 中 的 
空白 单元 格 进行 计数 ， 或 者 使 用 ISBLANK 工作 表 函 数 确定 区 域 中 的 某 个 单元 格 是 
否 为 空 。 

(6) 逻辑 函数 。 使 用 逻辑 函数 可 以 进行 真 假 值 判 断 ， 或 者 进行 复合 检验 。 例 如 ， 
可 以 使 用 正 函数 确定 条 件 为 真 还 是 假 ， 并 由 此 返回 不 同 的 数值 。 

(7) 查询 和 引用 函数 。 当 需要 在 数据 清单 或 表格 中 查找 特定 数值 ， 或 者 需要 查 
找 某 一 单元 格 的 引用 时 ， 可 以 使 用 查询 和 引用 工作 表 函 数 。 例 如 ， 如 果 需 要 在 表格 
中 查找 与 第 一 列 中 的 值 相 匹配 的 数值 ， 可 以 使 用 VLOOKUP 工作 表 函 数 。 如 果 需 要 
确定 数据 清单 中 数值 的 位 置 ， 可 以 使 用 MATCH 工作 表 函 数 。 

(8) 数学 和 三 角 函 数 。 通 过 数学 和 三 角 函 数 ， 可 以 处 理 简 单 的 计算 ， 例 如 对 数 
字 取 整 、 计 算 单元 格 区 域 中 的 数值 总 和 或 复杂 计算 。 

(9) 统计 函数 。 统 计 工 作 表 函数 用 于 对 数据 区 域 进行 统计 分 析 。 例 如 ， 统 计 工 
作 表 函数 可 以 提供 由 一 组 给 定 值 绘 制 出 的 直线 的 相关 信息 ,例如 直线 的 斜率 和 y 轴 
截 距 ， 或 构成 直线 的 实际 点 数值 。 

(10) 文本 函数 。 通 过 文本 函数 ， 可 以 在 公式 中 处 理 文字 串 。 例 如 ， 可 以 改变 大 
小 写 或 确定 文字 串 的 长 度 ， 可 以 将 日 期 插入 文字 串 或 连接 在 文字 串 上 。 

(11) 用 户 自 定义 函数 。 如 果 要 在 公式 或 计算 中 使 用 特别 复杂 的 计算 ， 而 工作 表 
函数 又 无 法 满足 需要 ， 则 需要 创建 用 户 自 定义 函数 。 这 些 函数 ， 称 为 用 户 自 定义 函 
数 ， 可 以 通过 使 用 Visual Basic for Applications 来 创建 。 


2.7.4 函数 的 应 用 举例 


1. 逻辑 函数 应 用 举例 


正 函数 被 称 为 条 件 函 数 ， 用 于 执行 罗 辑 判断 ， 根 据 逻辑 测试 的 真 假 值 不 同 返回 
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不 同 的 结果 。 正 函数 的 表达 式 为 : 
IF(logical test,value if true,value if false) 


其 中 Logical test 表示 计算 结果 为 TRUE 或 FALSE 的 任意 值 或 表达 式 。 本 参 
数 可 使 用 任何 比较 运算 符 。 Value_if true 显示 在 logical test 为 TRUE 时 返回 的 值 ， 
Value if true 也 可 以 是 其 他 公式 。Value if false 显示 在 logical test 为 FALSE 时 
返回 的 值 ，Value if false 也 可 以 是 其 他 公式 。 

简单 地 说 ， 就 是 当 第 一 个 参数 logical test 返回 的 结果 为 真 时 ， 则 执行 第 二 个 参 
数 Value if tme 的 结果 ， 和 否则 执行 第 三 个 参数 Value 计 false 的 结果 。IF 函数 可 以 
嵌 套 七 层 ， 用 value 让 false 及 value if true 参数 可 以 构造 复杂 的 检测 条 件 。 

Excel 还 提供 了 可 根据 某 一 条 件 来 分 析 数 据 的 其 他 函数 。 例 如 ， 如 果 要 计算 单 
元 格 区域 中 某 个 文本 串 或 数字 出 现 的 次 数 ， 则 可 使 用 COUNTIF 工作 表 函 数 。 如 果 
要 根据 单元 格 区 域 中 的 某 一 文本 串 或 数字 求 和 ， 则 可 使 用 SUMIF 工作 表 函 数 。 

例如 在 一 张 学 生 成 绩 表 中 ,学 生 的 总 成 绩 如 果 大 于 等 于 60 则 为 “及 格 ”， 如 果 
小 于 60 则 为 “不 及 格 ”。 当 然 可 以 先 计算 出 每 个 学 生 的 总 成 绩 再 一 个 个 地 判定 是 否 
及 格 ， 但 更 快捷 的 方法 是 在 “总 成 绩 ” 栏 (G3 中 ) 输 入 公式 “=IF(SUM(C3:G3)<60， 
"不 及 格 " ，" 及 格 " )”。 公 式 的 含义 为 : 如 果 SUM(C3:G3)<60， 则 在 单元 格 中 
显示 “不 及 格 ”， 否 则 显示 “及 格 ”。 如 图 2-40 所 示 。 


马 


=IF (SUI(C3:F3)《60“ 不 及 格 ““ 及 格 “^) 


本 本 
2. 日 期 与 时 间 函 数 应 用 举例 
在 数据 表 的 处 理 过 程 中 ， 日 期 与 时 间 的 函数 是 相当 重要 的 处 理 依据 。 而 Excel 
在 这 方面 也 提供 了 相当 丰富 的 函数 供 大 家 使 用 。 
(1) 用 于 取出 当前 系统 时 间 / 日 期 信息 的 函数 主要 有 NOW、TODAY。 函 数 的 表 
达 式 为 : 
TODAY () 和 NOW() 


(2) 如 果 需 要 单独 的 年 份 、 月 份 、 日 数 或 小 时 的 数据 时 ， 可 以 使 用 YEAR、 
MONTH、DAY、HOUR 函数 直接 从 单元 格 中 取出 需要 的 数据 。 比 如 ， 需 要 返回 
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2001-5-30 12:30 PM 的 年 份 、 月 份 、 日 数 及 小 时 数 ， 可 以 分 别 采 用 相应 函数 实现 。 
如 图 2-41 所 示 。 


Cd 下 =YEAR (C2) 


加 | 2001-5-30 12:30 PN 
3 
本 下 YEAR 
N65 到 NONTH 5 
: 国 | 
本 
8 


DAY 30 
HOUR 12 


图 2-41 时 间 函 数 的 设置 
3. 查询 函数 应 用 举例 


VLOOKUP 函数 用 于 在 指定 的 区 域 中 的 第 一 列 查 找 对 应 的 值 ， 返 回 找到 的 行 和 
指定 列 确定 的 单元 格 的 数据 。 可 以 用 TRUE 模糊 查找 和 FALSE 精确 查找 进行 ， 默 
认 是 模糊 。VLOOKUP 函数 的 表达 式 为 : 


VLOOKUP (lookup_value, table array,col index num, [range lookup]) 


例如 在 产品 信息 表 中 ,需要 查询 每 种 产品 的 库存 情况 ,就 可 使 用 VLOOKUP 函 
数 ， 如 图 2-42 所 示 。 


F16 "| =VLOOKUP (C16, A6:F11, 6, TRUE) 
A WN EN E | 
贺 数据 
5 产品 名 称 ”期 初 库存 量 本 月 入 库 数 本 月 退货 数 存货 盘 盈 / 盘 亏 期 末 库 存量 | 
_6 12 寸 鸿运 肩 256 2145 26 1 2376| 
T_10 寸 鸿运 户 135 2568 35 -2 2666| 
| 8 | 柜 式 空调 547 1569 0 -3 2113| 
9 窗 式 空调 659 1879 25 2 2515| 
10 | 三星 冰 箱 2: 645 1 3 630| 
11 双 层 冰箱 655 864 12 a 1511 
-By 
13 | 
| 14 | 查找 条 件 区 结果 显示 区 
15 ml 
| 好 | [产品 和 名称. [ 柜 式 空调 Ea Ee 
17 


图 2-42 VLOOKUP 函数 的 设置 
INDEX 函数 用 于 查找 指定 的 行 与 列 交叉 处 的 单元 格 引用 。 如 果 引 用 由 不 连续 的 选 
定 区 域 组 成 ， 可 以 选择 某 一 连续 区 域 。INDEX 函数 有 两 种 语法 形式 : 数组 和 引用 。 数 
组 形式 通常 返回 数值 或 数值 数组 ， 引 用 形式 通常 返回 引用 。INDEX 函数 的 表达 式 为 : 


INDEX (reference, row_ num,column num,area num) 
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如 果 知 道 要 查询 数值 在 指定 区 域 的 行 和 列 数 时 ， 可 使 用 INDEX 函数 。 如 在 图 
2-43 中 ， 要 查找 有 效 数 据 区 域内 第 3 行 第 2 列 的 值 。 


14 结果 显示 区 | 
[ 查找 条 件 区 客户 所 欠 款 | 


图 2-43 INDEX 函数 的 设置 
4. 数据 库 函 数 应 用 举例 
DGET 函数 用 于 查询 指定 数据 表 中 符合 过 滤 条 件 的 记录 的 指定 列 值 。 其 中 给 出 
的 过 滤 条 件 是 一 个 单元 格 区 域 ， 应 包括 一 个 列 标签 ， 以 及 列 标签 下 方 至 少 有 一 个 用 
于 为 该 列 指定 条 件 的 单元 格 。DGET 函数 的 表达 式 为 : 
DGET (database, field, criteria) 


图 2-44 为 DGET 函数 使 用 的 范例 。 


=DGET (B6:C11, 2, C14:C15) 
B C 


比 京 饮食 一 

| 曙 各 汽车 制造 三 __| 

| 瞧 花 江 汽车 制造 

比 京 比特 公司 | __ 50000| 


区 


图 2-44 DGET 函数 的 设置 
5. 数学 函数 应 用 举例 
SUM 函数 ( 求 和 函数 ) 返 回 某 一 单元 格 区 域 中 所 有 数字 之 和 。SUM 函数 的 表达 式 为 : 


SUM (numberl,number2, ...) 
es。 5l1 。 
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其 中 numberl1，number2，……… 为 1 到 30 个 需要 求 和 的 参数 。 如 图 2-45 所 示 
为 SUM 函数 使 用 的 范例 。 
E18 ”了 售 £| =SUN (ES5:E17) 
hs B ra P| 下 人 Re 区 


图 2-45 SUM 函数 的 设置 


SUMIF 函数 (条 件 求 和 函数 ) 用 于 根据 指定 条 件 对 若干 单元 格 求 和 。SUMIF 函数 
的 表达 式 为 : 


SUMIF (range, criteria, sum range) 


其 中 Criteria 为 确定 哪些 单元 格 将 被 相 加 求 和 的 条 件 ， 其 形式 可 以 为 数字 、 表 
达 式 或 文本 。 例 如 ， 条 件 可 以 表示 为 100、"32"、">0" 或 "原材料 "。 图 2-46 所 示 
为 SUMIF 函数 使 用 的 范例 , 在 E19 单元 格 中 设置 公式 求 E5 到 E17 单元 格 区 域 中 大 
于 0 的 值 的 和 。 


E19 ASK =SUNIF (E5:E17, “>0°, E5:E17) 

厂 了 A B 了 D 下 6 H 
1 
2 乙 企业 会 计 科目 发 生 客 表 
4 

1 5 一 一 一 一 一 一 一 一 | 
6 | 2 | 贸 行 存款 ”| 30000| 应 付 票 据 | 200000| 
7 | 3 | 其 他 货币 资金 | 120000| 永 人 账 款 | 190000| 
8 | 
9 
10 EE GN EL EEL ES 
11 7 | 包 鞭 物 | 本 请 30000] 
I 65000| 应 交 税金 (所 得 税 ) 
43 9 1086300| 长 期 借款 
14 
15 
16 
I 
18 
20 


图 2-46 ”SUMIF 函数 的 设置 
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6. 统计 函数 应 用 举例 


COUNT 函数 用 于 计算 包含 数字 以 及 包含 参数 列表 中 数字 的 单元 格 的 个 数 。 利 
用 COUNT 函数 可 以 计算 单元 格 区 域 或 数字 数组 中 数字 字段 的 输入 项 个 数 。 COUNT 
函数 的 表达 式 为 : 

COUNT (valuel,value?2,...) 


其 中 Valuel，value2,…… 为 包含 或 引用 各 种 类 型 数据 的 参数 (1~30 个 )， 但 只 
有 数字 类 型 的 数据 才 被 计算 。COUNT 函数 在 统计 时 ， 将 把 数字 、 日 期 或 以 文本 代 
表 的 数字 计算 在 内 ， 而 将 错误 值 或 其 他 无 法 转换 成 数字 的 文字 忽略 。 如 果 其 中 的 参 
数 是 一 个 数组 或 引用 ， 那 么 只 统计 数组 或 引用 中 的 数字 ， 而 数组 或 引用 中 的 空白 单 
元 格 、 轴 辑 值 、 文 字 或 错误 值 都 将 被 忽略 。 如 果 要 统计 逻辑 值 、 文 字 或 错误 值 ， 则 
可 使 用 函数 COUNTA。 

图 2-47 所 示 为 COUNT 函数 使 用 的 范例 。 


=COUNT (C2:C9) 


A | » I E | 
数据 


2008-12-8 


TRUE 
#DIV/O! 


图 2-47 COUNT 函数 的 设置 


2.8 复习 思考 题 


(D 电子 表格 可 分 成 哪 四 个 部 分 ? 
(2) 简 述 插入 电子 表格 的 四 种 方式 。 
G) 简 述 相对 引用 、 绝 对 引用 和 混合 引用 三 种 方式 的 区 别 。 
(4) 简 述 自动 输入 数据 的 两 种 方式 。 
(5) 简单 说 明 如 何 设置 数字 格式 。 
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2. 判断 题 


(1) Excel 2007 中 ， 是 无 法 创建 “Excel 97 一 2003 工作 短 (*.xls)” 的 。( ) 

(2) 在 单元 格 中 输入 公式 为 “=SUM($A$3:C$3)”， 是 表示 绝对 引用 。(  ) 

(3) COUNT 函数 与 COUNTA 函数 的 区 别 是 , COUNTA 函数 统计 的 是 非 空 对 象 
的 个 数 。(”) 

(4) DGET(database,field,criteria) 中 的 条 件 参数 ， 如 果 是 一 个 单元 格 区 域 ， 其 一 
般 是 一 个 两 行 单列 的 区 域 。( ) 

(5) VLOOKUP(lookup_value,table_array,col_index_num,[range_lookup]) 函 数 只 能 
查找 在 制定 区 域内 首 行 包含 有 查找 值 的 情况 。( ” ) 

(6) 相对 引用 会 伴随 着 公式 所 在 的 单元 格 位 置 的 变化 而 变化 ， 所 以 日 常 工作 中 

- 般 使 用 绝对 引用 。(  ) 

(7) 排序 条 件 随 工 作 簿 一 起 保存 ,每 当 打 开工 作 矢 时， 都 会 对 Excel 表 ( 而 不 是 
单元 格 区 域 ) 重 新 应 用 排序 。(。 ) 

(8) 常量 是 直接 输入 到 单元 格 或 公式 中 的 数字 或 文本 ， 或 由 名 称 所 代表 的 数字 
或 文本 值 。( ) 

(9) 编辑 栏 位 于 名 称 框 右 侧 ， 其 中 显示 的 是 当前 单元 格 中 的 数据 或 公式 ， 用 户 
可 以 对 单元 格 中 的 数据 进行 输入 、 删 除 和 修改 等 操作 。(  ) 

(10) 在 单元 格 中 输入 内 容 时 , 若 要 在 单元 格 中 另 起 一 行 开 始 , 按 Ctrl+Enter 输 
入 一 个 换行 符 即 可 。(  ) 

3. 单项 选择 题 


(1) Excel 2007 中 ， 最 大 单元 格 地 址 为 。 
A. AZZ1048576 “B. ZZA1048576 C.ZZZ1048576 D. AAA1048576 
(2) 工作 秒 即 通常 所 说 的 Excel 文档 ，Excel 2007 中 ， 其 后 缀 名 为 


A. .xlsx B. .doc aa D. .mdb 
G) 可 借助 键 ， 来 选 定 较 大 的 单元 格 区 域 。 
A. Alt B. Shift C. Delete D. Insert 
(4) 需要 选 定 多 个 区 域 时 ， 可 在 选 定 第 一 个 区 域 后 ， 按 住 键 不 放 ， 再 
选 定 第 二 个 、 第 三 个 …… 区 域 。 
A. Alt B. Shift C. Delete D. Ctrl 
(5) 使 用 快捷 方式 ， 可 以 选 定 整 张 工作 表 。 
A. Ctrl+A B. Shift+A C. Ctrl+Shift D. Ctrl+W 
(6) 用 于 取出 当前 系统 日 期 信息 的 函数 是 。 
A.TIME B. TODAY C.NOW D. TONIGHT 
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(7) 一 个 工作 短 默 认 情况 下 包含 3 个 工作 表 ， 最 多 可 包含 个 工作 表 。 
A.3 B. 200 C. 1000 D. 255 
(8) 根据 指定 条 件 对 若干 单元 格 求 和 的 函数 是 。 
A. SUM B. SUMIF C. COUNT D. COUNTA 
(9) 需要 在 表格 中 查找 与 第 一 列 中 的 值 相 匹配 的 数值 ， 可 以 使 用 工 儿 
表 函 数 。 
A.INDEX B. DGET C.VLOOKUP D. FIND 
(10) 需要 确定 数据 清单 中 数值 的 位 置 ， 可 以 使 用 工作 表 函 数 。 
A. INDEX B. MATCH C. LOCATE D. FIND 
4. 多 项 选择 题 
(1) 使 用 Excel 的 排序 功能 可 以 对 一 列 或 多 列 中 的 数据 按 进行 排序 。 
A. 数字 B. 日 期 时 间 C. 自 定义 D. 文本 
(2) Excel 2007 表格 中 可 以 使 用 的 数字 格式 。 
A. 常规 B. 数值 C. 货币 D. 文本 
(3) Excel 2007 中 的 财务 函数 包括 。 
A.FV B.PV C.IRR D. COUNTA 
(4) 自动 筛选 可 以 创建 三 种 筛选 类 型 : _ ____。 
A. 按 列表 值 B. 按 日 期 C. 按 格式 D. 按 条 件 
(5) 单元 格 内 容 输入 中 , Excel 的 自动 完成 功能 只 能 完成 包含 文字 或 文字 与 数字 
的 组 合 的 内 容 ， 对 于 那些 只 包含 的 内 容 不 能 自动 完成 。 
A. 数字 B. 日 期 C. 时 间 D. 文本 
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第 3 章 
外 部 数据 导入 


3.1 数据 连接 


Excel 工作 短 中 的 数据 通常 来 自 两 个 不 同 的 位 置 ， 数据 可 能 直接 存储 在 工作 每 
中 , 或 者 存储 在 文本 文件 、 数 据 库 或 联机 分 析 处 理 (OLAP) 多 维 数据 集 等 外 部 数据 源 
中 。Excel 可 以 通过 “数据 连接 ”建立 工作 短 与 外 部 数据 源 的 联系 。 数 据 连接 就 是 
-组 描述 如 何 查 找 、 登 录 、 查 询 和 访问 外 部 数据 源 的 共享 信息 ， 这 些 信 息 可 以 存储 
在 工作 短 或 连接 文件 (例如 Office 数据 连接 文件 *.ode 或 通用 数据 连接 文件 *.udcx 
中 ， 连 接 文 件 对 于 以 一 致 的 方式 共享 连接 以 及 进行 数据 源 管理 时 特别 有 用 。 


3.1.1 显示 数据 连接 


(1) 启动 Excel， 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连 
接 ”， 将 显示 “ 现 有 连接 ”对 话 框 ， 如 图 3-1 所 示 。 


图 3-1 数据 连接 对 话 框 
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(2) 在 该 对 话 框 项 部 的 “显示 ”下 拉 列 表 中 ， 单 击 “ 所 有 连接 ”， 将 显示 所 有 
的 数据 连接 文件 和 数据 连接 信息 ， 如 图 3-1 所 示 。 

G) 在 该 对 话 框 项 部 的 “显示 ”下 拉 列 表 中 ， 单 击 “ 此 工作 德 中 的 连接 ”， 将 
显示 目前 工作 短 中 所 使 用 的 全 部 数据 连接 信息 。 
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数据 连接 文件 和 数据 连接 信息 既 有 联系 又 有 区 别 ，Excel 可 以 通过 已 经 存在 的 
数据 连接 文件 建立 工作 簿 中 某 张 表 与 数据 源 的 联系 ， 一 旦 该 联系 建立 成 功 ，Excel 
将 该 数据 连接 文件 的 信息 复制 到 该 工作 薄 中 保存 ， 即 数据 连接 信息 。 


(4) 若 要 只 显示 计算 机 上 可 用 的 连接 ， 请 单 击 “此 计算 机 的 连接 文件 ”， 将 显 
示 目 前 存储 在 “我 的 文档 ”中 的 “我 的 数据 源 ” 文 件 夹 中 的 数据 连接 文件 或 者 数据 
连接 文件 的 快捷 方式 。 
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Excel 通过 数据 连接 文件 建立 工作 簿 与 数据 源 的 联系 后 ， 如 果 “ 我 的 文档 ”的 
“我 的 数据 源 ” 文 件 夹 中 没有 该 数据 连接 文件 ， 将 在 该 文件 夹 中 创建 一 个 数据 连接 
文件 的 快捷 方式 。 

(5) 若 要 显示 网 络 上 的 可 用 数据 连接 ， 请 单 击 “ 网 络 的 连接 文件 ”。 此 列表 是 
从 Microsoft Office SharePoint Server 2007 网 站 上 的 ExcelServices 数据 连接 库 (DCL) 
创建 的 。DCL 是 Microsoft Office SharePoint Services 2007 网 站 上 的 一 个 文档 库 ， 其 
中 包含 一 个 Office 数据 连接 (ODC) 文 件 (.odc) 的 集合 。 


3.1.2 创建 数据 连接 


(1) 如 果 需 要 建立 新 的 数据 连接 ， 在 “ 现 有 连接 ”对 话 框 中 单 击 “ 浏 览 更 多 ” 
以 显示 “选取 数据 源 ”对 话 框 ， 如 图 3-2 所 示 。 


MRM NR 


CS 


图 3-2 选取 数据 源 
。58 。 


EF 孙 闻 复 扫 多 入 图 


(2) 选择 数据 源 的 存放 路 径 ， 以 及 数据 源 的 名 称 后 ， 如 图 3-3 所 示 ， 单 击 “ 打 
开 ” 按 钮 ， 将 会 引入 该 数据 源 的 数据 到 Excel 表单 中 。 


文件 各 加 23 ew 加 | 
| 文 但 类 型 中。 | 所 有 数据 源 ode; * nab; * nde; + necdb; * nccde, ras * ade; ret 本 


CE | 


图 3-3 数据 连接 向 导 


(3) Excel 将 同时 建立 一 个 与 该 数据 源 连 接 的 数据 连接 文件 和 数据 连接 信息 ， 数 
据 连 接 文件 存放 在 “我 的 文档 ”的 “我 的 数据 源 ” 中 ， 如 图 3-4 所 示 ， 数 据 连接 信 
息 直 接 存放 在 该 Excel 文件 中 ， 如 图 3-5 所 示 ， 该 图 中 同时 也 出 现 了 数据 连接 文件 
本 身 。 


5 我 的 数据 源 
文件 四 纺 查 中 查看 弛 收藏 全 工具 四 帮助 0D 


@an 日 息 亡 屿 Bix 国 - 


文件 和 文件 夫 任 务 
友 二 各 注 信件 
及 和 1 文件 
四 文件 


a 
加 以 电子 伯 形式 改过 此 


| 
XX RT 广 件 


3-4 数据 连接 文件 
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| 此 计算 机 的 连接 文件 
和 1234 部 门 
| 莒 茎 6 
MoneyCentral 股票 行情 
[宇和] 


MoneyCentral 投资 者 汇率 
[宇和 ] 


SN WoneyCentral 投资 者 主要 指数 
弃 白 ] 


图 3-5 现 有 数据 连接 


(4) 计算 机 可 能 禁用 与 外 部 数据 的 连接 ， 若 要 在 打开 工作 短 时 连接 到 数据 ， 必 
须 通 过 使 用 “信任 中 心 ” 栏 或 将 工作 短 放 在 “受信 任 位 置 ” 来 启用 数据 连接 。 可 以 
通过 以 下 步骤 打开 “受信 任 位 置 对 话 框 进行 设置 : 单 击 “Office” 按钮, 选择 “Excel 
选项 ”， 选 择 “ 信 任 中 心 ”， 单 击 “ 信 任 中 心 设置 ”， 单 击 “ 受 信任 的 位 置 ”， 如 
图 3-6 所 示 。 


四 区 


罗兰: 所 有 这 兰 位 置 都 枯 视 为 打开 立 件 的 生 党 任 亲 源 。 如 时 从 机 改 或 添加 位 置 ,请 确 你 新 
位 置 旺 安 全 的 。 


路 径 说明 修改 昌明 六 
用 户 位 置 

DA-lcrosoft office\Templates、 Excel 2007 默认 位 置 : 所 用 程序 … 
CNMicrosofN\ExceNXLSTART、 Excel 2007 束 认 位 置 : 用 户 启动 

DA- Offce\O 俐 cel12WXLSTART\ Excel 2007 默认 位 置 : Excel 富 动 
[CA-ataWMicrnsnfTemnlafes\。Fxrpl 2007 昧 认 位 寺 : 奈 户 塌 棉 — 


BE: DAMicrosoft Office\Tempiates\ 
说 胡 ; Excel 2007 对 认 位 置 : 应 用 程序 模板 


修改 日 其 : 
子 文件 大 ”4 洗 


| 渗 tn 新 位 置 (… 测 除 (B) 
口 包 洗 网 络 上 的 受信 任 位 置 (不 推荐 )W) 
口 夺 用 所 有 受信 任 位 置 ， 仅 信任 出 受 党 任 的 发 布 者 笠 雪 的 文件 [D)， 


[Las |] 


3-6 受信 任 的 位 置 


。60 。 
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3.1.3 ”使 用 数据 连接 


(1) 在 “ 现 有 连接 ”对 话 框 中 选择 所 需 的 连接 ， 然 后 单 击 “ 打 开 ” 按 钮 。 将 显 
示 “ 导 入 数据 ”对 话 框 ， 如 图 3-7 所 示 。 


请 选择 该 数 据 在 工作 德 中 的 显示 方式 。 
国 @ 表 由 
加 〇 数据 透视 表 E) 
C 〇 数据 透视 图 和 数据 透视 表 CC) 
瑟 忆 芭 创 建 连接 @) 


数据 的 放置 位 置 
多 现 有 工作 表 外): 


〇 新 建 工作 表 甸 


图 3-7 导入 数据 


(2) 在 “请 选择 该 数据 在 工作 筹 中 的 显示 方式 ”下 ， 执 行 下 列 操作 之 一 : 

@ 若 要 创建 表 以 进行 简单 排序 和 筛选 ， 请 单 击 “ 表 ”。 

@ 若 要 创建 数据 透视 表 以 通过 聚合 及 合计 数据 来 汇总 大 量 数据 , 请 单 击 “数据 
透视 表 ”。 

图 若 要 创建 数据 透视 表 和 数据 透视 图 以 可 视 地 汇总 数据 , 请 单 击 “ 数 据 透 视图 
和 数据 透视 表 ”。 

@ 车 要 将 所 选 连接 存储 在 工作 簿 中 以 便 今后 使 用 ,请 单 击 “ 仅 创建 连接 ”。 使 
用 此 选项 将 选 定 的 连接 存储 到 工作 德 中 以 备 后 用 , 即 形成 一 个 数据 连接 信息 。 例如 ， 
如 果 要 连接 到 联机 分 析 处 理 (OLAP) 多 维 数据 集 数 据 源 ， 而 且 打算 通过 使 用 “转换 为 
公式 ”命令 (在 “选项 ”选项 卡 上 的 “工具 ”组 中 ， 单 击 “OLAP 工具 ”) 将 数据 透 
视 表 单元 格 转换 为 工作 表 公 式 ， 则 可 以 使 用 此 选项 ， 因 为 不 必 保 存 数据 透视 表 。 
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这 些 选项 并 非 对 于 所 有 类 型 的 数据 连接 (包括 文本 、Web 查询 和 XML) 都 可 用 。 

G) 在 “数据 的 放置 位 置 ” 下 ， 执 行 下 列 操作 之 一 : 

@ 若 要 将 数据 透视 表 或 数据 透视 图 放 在 现 有 的 工作 表 中 ， 请 选择 “ 现 有 工作 
表 ”， 然 后 键入 要 放置 数据 透视 表 的 单元 格 区 域 的 第 一 个 单元 格 。 也 可 以 单 击 “ 压 

sb6l* 
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缩 对 话 框 ”以 临时 隐藏 对 话 框 ， 在 工作 表 上 选择 单元 格 以 后 ， 再 单 击 “ 展 开 对 话 框 ? 
按钮 进行 下 一 步 的 操作 。 

@ 若 要 将 数据 透视 表 放 在 新 工作 表 中 ， 并 以 单元 格 Al 为 起 始 位 置 ， 请 单 击 
“新 建 工 作 表 ”。 
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一 旦 使 用 数据 连接 文件 连接 到 数据 源 , 则 Excel 会 将 连接 信息 从 数据 连接 文件 
复制 到 Excel 工作 簿 中 , 形成 工作 簿 连接 信息 , 同时 在 “ 现 有 连接 ” 对话 框 中 的 “此 
工作 簿 连接 ”中 出 现 一 条 新 记录 ; 同时 如 果 该 数据 连接 文件 不 是 存放 在 “我 的 文档 ” 
的 “我 的 数据 源 ” 文 件 夹 中 ， 还 会 在 该 路 径 下 创建 一 个 数据 连接 文件 的 快捷 方式 ， 
该 快捷 方式 将 出 现在 “ 现 有 连接 ”对 话 框 的 “此 计算 机 的 连接 文件 ”中 。 


3.1.4 管理 数据 连接 


(D 在“ 数据" 进项 卡 上 的 “获取 外 部 数据 ” 组 中 ， 单 击 “ 连 接 ”， 将 显示 “ 工 
作 等 连接 ”对 话 框 ， 如 图 3-8 所 示 。 


| Ws | 讽 ” 宙 
加 Eh 工作 条 连接 四 加 

BW ”|| 名 称 ~ 说 明 ”上 次 剧 新 时 间 

连接 
6 E 

此 工作 湾 中 使 用 连接 的 位 置 
图 3-8 工作 短 连 接 

国教 学 提示 图 


工作 簿 连接 与 数据 连接 文件 既 有 联系 又 有 区 别 ， 具 体 参 考 前 面 的 教学 提示 ， 工 
作 薄 连接 中 显示 和 管理 的 是 已 经 复制 到 该 工作 簿 中 的 数据 连接 信息 。 


es。 02。 
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(2) 通过 “工作 敌 连 接 ” 对 话 框 执行 下 列 操作 。 

外 单 击 “ 添 加 ”显示 “ 现 有 连接 ”对 话 框 ， 从 而 利用 数据 连接 文件 添加 该 工作 
等 的 新 的 连接 信息 。 

@ 选择 一 个 连接 信息 ， 然 后 单 击 “ 属 性 ”以 显示 “连接 属性 ”对 话 框 ， 对 该 连 
接 信息 进行 编辑 。 
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一 旦 编辑 了 连接 信息 (除了 “连接 名 称 ” 和 “连接 说 明 ” 属 性 外 )， 指 向 该 连接 
文件 的 链接 将 被 删除 ，“ 连 接 文 件 ” 属 性 也 将 被 清除 。 

@@ 单 击 “刷新 ”旁边 的 箭头 ， 可 以 选择 : 

。 要 刷新 特定 的 连接 ， 请 选择 一 个 或 多 个 连接 ， 然 后 单 击 “刷新 ”按钮 。 

。 要 刷新 工作 矢 中 的 所 有 连接 ， 请 清除 所 有 连接 ， 然 后 单 击 “ 全 部 刷新 ”按钮 。 

。 要 获取 有 关 刷 新 操作 的 状态 信息 ， 请 选择 一 个 或 多 个 连接 ， 然 后 单 击 “ 刷 

。 要 停止 当前 的 刷新 操作 ， 请 单 击 “ 取 消 刷 新 ”。 

@ 选择 要 从 工作 短 中 删除 的 一 个 或 多 个 连接 ， 然 后 单 击 “ 删 除 ”按钮 。 


国教 学 提示 图 

如 果 工作 薄 受 保护 或 者 一 个 使 用 该 连接 的 对 象 (如 数据 透视 表 ) 受 保护 ， 则 此 按 
钮 将 被 禁用 。 删 除 连接 将 仅 删除 连接 ， 而 不 会 删除 工作 簿 中 的 任何 对 象 或 数据 。 

@ 选择 一 个 或 多 个 连接 , 然后 在 “此 工作 短 中 使 用 连接 的 位 置 ”下 单 击 链 接 “ 单 
击 此 处 以 查看 所 选 连接 的 使 用 位 置 ”。 


3.2 文本 数据 导入 


Excel 可 以 非常 方便 地 导入 外 部 文本 型 数据 源 ， 并 生成 相应 的 数据 连接 文件 以 
备 重复 使 用 。 下 面 以 金蝶 K/3 软件 为 例 ， 讲 解 会 计 软 件 的 文本 型 数据 导出 和 Excel 
文本 型 数据 的 导入 。 


3.2.1 金蝶 K/3 数据 导出 


(1) 启动 金蝶 K/3 V12 精益 版 ， 选 择 “ 财 务 会 计 ” 中 “总 账 ” 下 的 “财务 报表 ” 
功能 ， 将 显示 所 有 的 财务 报表 ， 如 图 3-9 所 示 。 


。03。 
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局 01016 科目 休 烽 表 
口 01017 斌 和 平家 
口 tole 日 报表 查询 
口 ntots 摘要 i 总 表 
口 okoen 术 和 项 目 作业 表 
加 olo2l 核算 项 目 明 细 表 
加 okozz 核算 项 目 汇 名 表 
口 okozs 核算 项 目 组 全 表 
癌 okoe4 核 和 项 目 与 科目 组 全 表 
加 ooes ”科目 利息 计算 表 
加 ntozs 调 iC 历 史 信息 表 


joieiero| 


区 四 


图 


oe 


(3) 选择 “文件 ”菜单 下 的 “引出 ”功能 ， 出 现 “ 引 出 ”对 话 框 ， 如 图 3-11 所 示 。 


。64 。 
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和 大 引出 “科目 余额 表 ” 


图 3-11 引出 对 话 框 


(4) 在 数据 类 型 中 选择 “Text(*.kb ”， 在 选项 中 选择 “以 逗号 分 隔 ” 后 ， 单 击 
“确定 ”按钮 ， 出 现 保存 文件 对 话 框 ， 如 图 3-12 所 示 。 


图 3-12 保存 文件 对 话 框 


(5) 选择 保存 文件 的 保存 路 径 为 “桌面 ”， 输 入 保存 文件 名 “test.txt” 后 ， 单 击 
“保存 ”按钮 ， 成 功 后 金蝶 软件 将 显示 提示 信息 ， 如 图 3-13 所 示 。 
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图 3-13 保存 文件 成 功 信息 


3.2.2 Excel 文本 型 数据 源 导入 


(1) 启动 Excel， 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连 
接 ”， 在 出 现 的 “ 现 有 连接 ”对 话 框 中 选择 “浏览 更 多 ”按钮 ， 出 现 “ 选 取 数 据 源 ” 
对 话 框 ， 如 图 3-14 所 示 。 


: ”| 凶 碧 的 数据 涯 


| 右 二 再 oe 

加 :新 SQLServer 连接 ode 
123 WFPrn20100610233632. ode 
MSN MoneyCentral 投资 者 主要 指数 iqy 
MSH WoneyCentral 投资 者 汇率 iqy 
NSH NoneyCentral 股票 行情 iqy 
查询 来 自 NS Access Database 


文件 名 :| 司 
文件 类 型 0) 。 [所 有 数据 源 (ode; + ndb; + mde; + accdb; *. accde; * ols; *. ade; * adp; ia 


图 3-14 “选取 数据 源 ” 对 话 框 


(2) 选择 “桌面 ”， 选 择 文件 类 型 为 “文本 文件 ”， 选 择 “testtxt” 文 件 后 ， 单 
击 “ 打 开 ” 按 钮 ， 如 图 3-15 所 示 。 


sa 00。 


务 3 六 外 六 以 招 子 入 国 


文件 各 加 ; 
文件 闫 驶 四。 [文本 文件 (rtzt + prn; * csv; * tab; * ss) 


图 3-15 ”确定 文本 文件 
(3) 将 出 现 “ 文 本 导入 向 导 - 步 又 1” 对 话 框 ， 如 图 3-16 所 示 。 


文本 导入 向 导 - 步骤 1 ( 共 3 步 ) 


936 ; 简体 中 文 (GB2312) 


00.00 ,GOI00 00 30000.00 .4100 0 115t20.00 .00 
00, 204400. 00, 80200. 00, 902180. 00, .00 


3-16 文本 导入 向 导 -步骤 1 


@ 原始 数据 类 型 如 果 文 本 文件 中 的 项 以 制 表 符 、 喜 号 、 分 号 、 空 格 或 其 他 字 
符 分 隔 ， 则 选择 “分 隔 符 号 ”如 果 文本 文件 中 的 所 有 项 的 长 度 相同 ， 则 选择 “ 固 
定 宽度 ”。 


61. 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


加 导入 起 始 行 : 键入 或 选择 行 号 以 指定 要 导入 数据 的 第 一 行 。 

@ 文件 原始 格式 : 选择 文本 文件 中 使 用 的 字符 集 。 大 多 数 情 况 下 ,可 以 保持 文 
本 格式 的 默认 设置 .如 果 知 道 文本 文件 是 使 用 不 同 于 计算 机 上 使 用 的 字符 集 创建 的 ， 
那么 应 更 改 此 设置 使 其 与 计算 机 上 的 字符 集 相 同 。 例 如 ， 如 果 您 的 计算 机 设置 为 使 
用 字符 集 1251( 西 里 尔 文 ， Windows)， 而 您 知道 文件 是 使 用 字符 集 1252( 西 欧 字符 ， 
Windows) 生 成 的 ， 则 应 将 “文件 原始 格式 ”设置 为 1252。 

@ 预览 文件 : 该 框 以 文本 被 分 到 工作 表 的 列 中 后 的 形式 来 显示 文本 ， 单 击 “ 下 

- 步 ”按钮 ， 进 入 第 2 步 设 置 。 
(4) 这 时 会 出 现 “ 文 本 导入 向 导 -步骤 2” 对 话 框 ， 如 图 3-17 所 示 。 


文本 导入 向 导 - 步 枝 2 ( 共 3 步 ) 


料 目 代码 “科目 名 称 "，“ 币 别 ““ 期 初 漠 方 余额 “期 初 贷方 余额 "“ 相 期 借方 发 生 额 "“ 相 期 贷方 发 生 额 “，“ 
001, “库存 现金 "120520. 00, . 00, 38000. 00, 43100. 00, 36000. 00, 43100. 00, 115420. 00, . 00 

002, "由 行 存款 ",,777980. 00, . 00, 204400. 00, 80200. 00, 204400. 00, 80200. 00, 902180. 00, .00 

121, "应 收 票据 ",，. 00, . 00, 64300. 00, . 00, 64300. 00, . 00, 64300. 00, . 00 

< 


取消 《上 一 步 @) 


图 3-17 文本 导入 向 导 -步骤 2 


@ 分 隔 符 : 选择 在 文本 文件 中 分 隔 值 的 字符 。 如 果 未 列 出 字符 , 则 选中 “其 他 ” 
复 选 框 ， 然 后 在 后 面 的 框 中 键入 字符 ， 如 果 数 据 类 型 为 “固定 宽度 ”， 则 这 些 选项 
不 可 用 。 本 例 中 选择 “逗号 ”作为 分 隔 符 号 。 

@ 连续 分 隔 符 视 为 单个 处 理 :如果 数据 包含 数据 字段 之 间 的 一 个 具有 多 个 字符 
的 分 隔 符 ， 或 者 数据 包含 多 个 自 定 义 分 隔 符 ， 则 选择 该 选项 。 

@ 文本 识别 符 : 选择 文本 文件 中 将 值 括 起 来 的 字符 。 当 Excel 遇 到 文本 识别 
符 时 ， 识 别 符 后 面 且 下 一 识别 符 前 面 的 所 有 文本 都 会 作为 一 个 值 导 入 ， 即 使 文本 中 
包含 一 个 分 隔 符 也 是 如 此 。 例如 ， 如 果 分 隔 符 为 逗号 (),， 文本 识别 符 为 双 引 号 〈")， 
"Dallas, Texas" 将 以 Dallas, Texas 形式 导入 到 一 个 单元 格 中 。 如 果 没 有 识别 符 或 者 
指定 单 引 号 () 为 识别 符 , "Dallas, Texas" 将 以 "Dallas 和 Texas" 形式 导入 到 两 个 


as 08 。 


务 3 六 外 六 疏 招 子 入 国 


相 邻 的 单元 格 中 。 
@ 数据 预览: pe tt ar ea a gad 
中 的 列 ， 如 图 3-18 所 示 ， 再 单 击 “ 下 一 步 ”按钮 进入 第 3 步 设置 。 


文本 导入 向 导 - 步 要 2 ( 共 3 步 ) 
请 设置 分 列 数 据 所 包 合 的 分 隔 符号 。 在 预览 窗口 内 可 看 到 | 分 列 的 效果 。 


数据 预览 E) 


峙 目 代码 ebp 别 ee A i ee sd | 
001 
002 和 和 i 00 oo m 
121 收 票 据 oo 4300.00 
< 


《上 =- 步 @) ] [下 = 步 吕 >] [ 寺 成 四 ] 
图 3-18 数据 预览 


(5) 这 时 会 出 现 “文本 导入 向 导 - 步 又 3” 对 话 框 ， 如 图 3-19 所 示 。 


文本 导入 向 导 - 步骤 3 ( 共 3 步 ) 


图 3-19 文本 导入 向 导 -步骤 3 


@ 单 击 “ 高 级 ”按钮 以 指定 文本 文件 中 所 使 用 的 小 数 分 隔 符 和 千 位 分 隔 符 的 类 
型 。 在 将 数据 导入 到 Excel 中 时 , 分隔 符 将 与 “区 域 设置 ”(Windows“ 控 制 面板 ”) 
中 所 指定 的 您 所 在 国家 /地 区 的 分 隔 符 相 匹配 。 


sa 09。 


图 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


@ 列 数据 格式 : 单 击 在 “数据 预览 ”部 分 选 定 的 列 的 数据 格式 。 如 果 不 想 导 入 
选 定 的 列 ， 则 单 击 “ 不 导入 此 列 ( 跳 过 )”。 

@ 选择 选 定 列 的 数据 格式 后 , “数据 预览 ”下 的 列 标题 将 显示 该 格式 。 如 果 选 
择 “ 日 期 ”， 请 在 “日 期 ”文本 框 中 选择 日 期 格式 。 

@ 选择 与 预览 数据 最 接近 的 数据 格式 ， et 
据 。 例如: 要 将 所 有 货币 数字 字符 列 转换 为 Excel 货币 格式 ， “常规 要 
a rea 
列 (每 个 日 期 按 年 、 月 、 日 的 顺序 排列 ) 转 换 为 Excel 日 期 格式 ， 请 选择 “日 期 ”， 
然后 选择 “日 期 ” 框 中 的 “YMD” 日 期 类 型 。 

@ 如 果 转 换 可 能 产生 某 些 意外 结果 ，Excel 将 以 常规 格式 导入 列 。 例如: 如 果 
列 中 包含 混合 格式 (如 字母 和 数字 字符 ), Excel 会 将 列 转 换 为 常规 格式 ; 如 果 在 日 期 
列 中 ， 每 个 日 期 都 是 以 年 、 月 、 日 的 顺序 排列 ， 同 时 选择 “日 期 ”以 及 “MDY ”日 
期 类 型 ， 则 Excel 便 会 将 列 转换 为 常规 格式 ， 包 含 日 期 字 。 

(6) 根据 提示 完成 设置 后 ， 单 击 “完成 ”按钮 将 该 文件 的 内 容 引 入 到 Excel 中 
如 图 3-20 所 示 。 


到 有 Er in HH 9 RA i E20 
be 


有 


Er 
4300 
000 

?000 
1000 
0 
396350 
10%0000 
163%%00 
0 
T3740 
100000 
S0000 
9 

0 

9 

o 

0 

0 

v 
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图 3-20 文本 文件 引入 后 效果 


(7) 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连接 ”, 在 “此 
工作 适中 连接 ”中 将 出 现 本 次 使 用 的 连接 信息 ， 如 图 3-21 所 示 。 


sa。 70。 


EE 


| | 网络 的 连接 文件 - 
祭 找 到 任何 连接 > 
此 计算 机 的 连接 文件 
N123 IFPrn20100610233632 
最 [空白 ] 


HSH WoneyCentral 股票 行情 
] 


[空白 
MSN WoneyCentral 投资 者 汇率 
白 ] 


MSN MoneyCentral 投资 者 主要 指数 
[空白 ] 


查询 来 自 NS Access Database 
| 快捷 方式 


图 3-21 显示 本 次 连接 信息 


(8) 在 “数据 ”选项 卡 上 的 “连接 ”组 中 ， 单 击 “ 全 部 刷新 ”， 选 择 “刷新 ” 
功能 ， 将 实现 Excel 文件 内 容 和 连接 的 文本 文件 保持 一 致 ， 如 图 3-22 所 示 。 


3-22 ”数据 刷新 


。7T1 。 


图 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 
3.3 数据库 数据 导入 


Excel 对 于 外 部 的 数据 库 型 数据 源 的 导入 也 非常 便利 ， 将 生成 数据 连接 文件 以 
重复 利用 。 下 面 以 用 友 软 件 U8.90 为 例 ， 讲 解 会 计 软 件 的 数据 库 文件 数据 导出 和 
Excel 数据 库 文件 的 导入 。 


3.3.1 用 友 U8.90 数据 导出 


(1) 启动 用 友 U8.90 后 ， 选 择 “财务 会 计 ” 的 “总 账 ” 功 能 ， 如 图 3-23 所 示 。 


3-23 总 账 功能 


(2) 选择 “ 账 表 ”中 的 “科目 账 ” 下 的 “余额 表 ”， 出 现 “ 发 生 额 及 余额 表 ”， 
如 图 3-24 所 示 。 


es。 72。 


EE 5) 


发 生 额 及 余额 表 


2 240, 751.00| 
12, 020, 425 .00 255,290.17 91,305.44| 12,184,409.73 


| 359, 316.60] 358, 316.60, 
138,325.00| I 60,000.00| 78,325.00 
01, 449.00 407, 449. 0 
212, 937.10 212.997.10 
3,981, 097.00) | | 3,981, 097. 00 
12,754, 000.00| ] 908.000 0 13, 663, 000. 0 
| 320,950.%] | 000.31| 1 332, 040.27 


图 3-24 发 生 额 及 余额 表 


G3) 在 余额 表 的 空白 处 右 击 ， 在 弹出 的 下 拉 菜 单 中 选择 “数据 输出 ”功能 ， 出 
现 “ 另 存 为 ”对 话 框 ， 如 图 3-25 所 示 。 


图 3-25 输出 对 话 框 


(4) 选择 保存 路 径 为 “桌面 ”， 输 入 文件 名 为 kmye， 选 择 保存 类 型 为 Microsoft 
“Access”(*.mdb)， 如 图 3-26 所 示 。 


3e 


付 财 务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


保存 在 加 :| 国 旧 面 了 e 让 并 国 - 

加 我 的 文档 

最 我 的 电脑 

最 风 上 邻居 | 
最 我 的 电脑 

文 Hgm: pq 
保存 类 型 区) : |mi erosoft Access(*.mdb) 可 取消 | 


图 3-26 保存 为 数据 库 文件 


(5) 单 击 “ 保 存 ”按钮 ， 成 功 后 将 显示 一 个 提示 信息 。 
3.3.2 数据 连接 方式 下 数据 库 数据 导入 


(1) 启动 Excel， 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连 
接 ”， 在 出 现 的 “ 现 有 连接 ”对 话 框 中 选择 “浏览 更 多 ”按钮 ， 出 现 “ 选 取 数 据 源 ” 
对 话 框 ， 如 前 面 的 图 3-14 所 示 。 

(2) 选择 “桌面 ”， 选 择 文件 类 型 为 “Access 数据 库 ”(*.mdb:*.mde)， 选 择 
“kmyemdb” 文 件 后 ， 单 击 “ 打 开 ” 按 钮 ， 如 图 3-27 所 示 。 


选取 数据 源 


图 3-27 打开 数据 库 文件 


sh 


之 3 六 人 外 六 发 招 了 入 性 


(3) 出 现 导 入 数据 对 话 框 ， 如 图 3-28 所 示 。 


图 3-28 导入 数据 对 话 框 


(4) 单 击 “确定 ”按钮 后 ， 将 引入 该 表 的 数据 到 Excel 中 ， 如 图 3-29 所 示 。 


\ ES Book! - Microsoft Excel 
二 回 dsCe ， 忆 四 富有 
kme 上 重复 功 证 马 RJ | 四 汇总 行 四 最后- 列 | |= 


SH MN i 


月 份 : 2008. 12-2008.12 


2 资产 小 计 4558334.86 137120. 91 
16 月 份 :2008.12-2008.12 2l01 类 明寺 坎 0 

008 月 份 : 2008. 12-2008.12 。 2121 应 付 账 款 0 276850 

18 | 应 付 福 利 费 0 azoo 

19 2008 月 份 : 2008. 12-2008.12 2171 应 交 税 全 16800 


| 
月 份 ，2008. 12-2008.12 。 负债 小 计 
a 


图 3-29 ”数据库 数 据 引入 效果 
(5) 选择 刷新 命令 可 以 使 数据 库 文件 数据 与 Excel 的 数据 保持 一 致 。 


(6) 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连接 ”， 发 现 
在 “此 工作 短 中 的 连接 ”和 “此 计算 机 的 连接 文件 ”中 都 有 新 的 信息 加 入 ,如 图 3-30 
所 示 ， 其 中 “计算 机 的 连接 文件 ”为 “我 的 文档 ”的 “我 的 数据 源 ” 中 的 数据 连接 


文件 或 者 数据 连接 文件 的 快捷 方式 ; 
到 工作 簿 中 的 “连接 信息 ”。 


“工作 矢 中 的 连接 ”为 “数据 连接 文件 ”复制 


。15.。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


显示 @): [所 有 连接 


选择 连接 人) : 
此 工作 簿 中 的 连接 


[ 宝 白 ] 
网 络 的 连接 文件 
条 找到 任何 连接 > 

此 计算 机 的 连接 文件 

Jmye UFPrn20100703153044 
[空白 ] 

MSN WoneyCentral 股票 行情 
[空白 ] 


a] MSH MoneyCentral 投资 者 汇率 
[空白 ] 


医 


WoneyCentral 投资 者 主要 指数 
[空白 ] 


图 3-30 现 有 连接 的 新 信息 


(7) 从 “我 的 电脑 ”中 打开 “我 的 文档 ”中 的 “我 的 数据 源 ” 后 ， 可 以 发 现 这 
里 的 确 新 建立 了 一 个 数据 连接 文件 ， 如 图 3-31 所 示 。 

耻 C:\Documents and SettingsVhdainistratorVEy Docuacnts\ 我 的 数据 源 

文件 也。 编 得 @) 查看 W) 收藏 和 ) 工具 CD) 必 助 WD 


Oi- 让 Ex 的 9 


地 泪 呈 】 多 C:\Documents snd Settines\Adninistrator\My Docunents\ 我 的 数据 新 


文件 和 文件 夹 任务 四 +: 这 捧 列 捧 数据 源 “dc 
国 下 这 人 文件 国 才 SQLServer 连接 ode 
入 交 sb 这 人 文件 

四 复 籼 个 文件 


3.3.3 ”MicroSoft Query 方式 下 数据 库 数据 导入 


(1) 启动 Excel， 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 自 其 他 
来 源 ”， 在 下 拉 选 项 中 选择 “来 自 Microsoft Query”， 如 图 3-32 所 示 。 


。76 。 


甸 3 芝 欠 亲 天 所 区 入 性 


司 = 
全 4 局 人 坏 | | B 册 。 宙 


创建 到 SQL Server 表 的 活 癌 将 数据 导入 
Excel 作为 志 或 至 适 视 志 。 


来 自分 析 避 务 
多 建 到 SQL Server 分 析 强 务 多 扒 数 据 先 的 连 
众 ， 后 歼 二 导入 Fxrel 作为 专 或 笋 运 运 规 地， 


来 自 XML 数据 导 入 
打开 XML 文件 或 格 其 丽 介 到 Excel, 


来 自 致 所 过 接 向 号 
记 辐 通过 使 用 玖 所 过 和 向导 和 OLEDB 导入 未 列 出 
格式 的 数据 。 


图 3-32 MicroSoft Query 方式 
(2) 出 现 选择 数据 源 对 话 框 ， 如 图 3-33 所 示 。 


选择 数据 源 


数据 库 | 查询 。 | 0LAP 多维 数据 集 | 


图 3-33 选择 数据 源 


(3) 选择 “MS Access Database* ”后 ， 单 击 “ 确 定 ” 按 钮 ， 出 现 “选择 数据 库 ? 
对 话 框 ， 如 图 3-34 所 示 。 


数据 库 名 A) 
I mdb;*. accdb 


合 Docmeants ma 5 国 
EB Adaninistrator 
ly Docunents 


文件 类 型 I); 
iceess 要 据 库 maiz] 


图 3-34 选择 数据 库 


。77 。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


(4) 选择 在 桌面 保存 的 数据 库 文件 “kmyemdb” 后 ， 单 击 “ 确 定 ” 按 钮 ， 将 出 
现 查询 向 导 进 行 查询 设置 ， 首 先是 列 设置 ， 如 图 3-35 所 示 。 


查询 向 导 一 选择 列 


图 3-35 选择 列 对 话 杠 


(5) 在 可 用 的 表 和 列 中 展开 表 结构 , 将 需要 在 Excel 中 显示 的 列 添加 到 查询 结果 
中 的 列 里 ， 如 图 3-36 所 示 ， 然 后 单 击 “ 下 一 步 ”按钮 。 


查询 向 导 - 选择 列 


图 3-36 选择 列 后 的 效果 


(6) 出 现 查 询 向 导 的 “筛选 数据 ”对 话 框 ， 如 图 3-37 所 示 。 


查询 向 导 一 筛选 数据 


| 
图 3-37 ”筛选 数据 


。T8 。 


务 3 茧 从 六 懂 招 了 入 图 


“下 一 步 ” 按 钮 出现“ 排序 顺序 ”对 话 框 ， 如 
“会 计 期 间 ” 为 次 要 关键 字 ，“ 科 目 


(7) 设置 好 筛选 条 件 后 ， 单 
图 3-38 所 示 ， 选 择 “ 会 计 年 度 ” 为 主 关键 字 ， 
编码 ”为 第 三 关键 字 ， 全 部 为 升序 。 


查询 向 导 - 排序 顺序 


请 指定 数据 的 排序 方式 。 
加 果 无 需 对 数据 排序 ， 请 单 击 “ 下 一 步 ”。 


主要 关键 字 
会 计 年 度 3 


次 要 关键 字 
会 计 其 全 了 
第 三 关键 字 
NS 本 
贺 《上 一 步 @) | 下 一 步 中 > 取消 
3-38 ”排序 顺序 对 话 框 


(8) 单 击 “ 下 一 步 ”按钮 ， 出 现 完成 对 话 框 ， 如 图 3-39 所 示 ， 选 择 将 数据 返回 


Excel 中 。 


查询 向 导 - 完成 


个 在 胆 crosoft Query 中 查看 数据 或 编辑 查询 YY) 


| 
图 3-39 ”完成 对 话 框 
出 现 导入 数据 对 话 框 ， 单 击 “ 确 定 ” 按 钮 后 将 输入 引 


入 到 Excel 中 ， 效 果 图 参考 前 面 的 图 3-28 和 图 3-29。 
(10) 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连接 ”， 发 现 


在 “此 工作 筹 中 的 连接 ”中 有 新 的 信息 加 入 ， 如 图 3-40 所 示 。 


(9) 单 击 “ 完 成 ”按钮 ， 
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此 计算 机 的 连接 文件 
| MSN NoneyCentral 股票 行情 
EE [el 


| ] MSH NoneyCentral 投资 者 汇率 
B® el 


| TISN NoneyCentral 投资 者 主要 指数 
| [空白 ] 


图 3-40 QUERY 方式 下 的 数据 连接 信息 


3.4 XML 数据 导入 


XML 是 可 扩展 标记 语言 (Extensible Markup Language) 的 缩写 ， 是 Internet 环境 
中 路 平台 的 ， 依 赖 于 内 容 的 技术 ， 是 当前 处 理 结构 化 文档 信息 的 有 力 工 具 ，XML 
与 HTML 一 样 ， 都 是 SGML(Standard Generalized Markup Language， 标 准 通用 标记 
语言 )。XML 遵循 业界 标准 原则 ， 并 且 可 由 各 种 数据 库 和 应 用 程序 进行 处 理 ， 通 过 
使 用 XML， 应 用 程序 设计 人 员 可 以 创建 他 们 自己 的 自 定义 标记 、 数 据 结构 和 架构 。 
简 而 言 之 ,， XML 使 在 数据 库 、 应 用 程序 和 组 织 之 间 定义 、 传 输 、 验 证 和 解释 数据 变 
得 格外 轻松 。 


3.4.1 XML 的 基本 特征 


(1) XML 与 Access，Oracle 和 SQL Server 等 数据 库 不 同 ， 数 据 库 提供 了 更 强 有 
力 的 数据 存储 和 分 析 能 力 ， 例 如 : 数据 索引 、 排 序 、 查 找 、 相 关 一 致 性 等 ，XML 
仅仅 是 展示 数据 。XML 与 其 他 数据 表现 形式 最 大 的 不 同 是 一 一 极其 简单 。 
(2) XML 与 HIML 的 设计 区 别 是 : XML 是 用 来 存储 数据 的 ， 重 在 数据 本 身 ; 
而 HTML 是 用 来 定义 数据 的 ， 重 在 数据 的 显示 模式 。 实 际 上 XML 可 以 视 作对 
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HTML 的 补充 : HTML 的 设计 目标 是 显示 数据 并 集中 于 数据 外 观 ， 而 XML 的 设 
计 目 标 是 描述 数据 并 集中 于 数据 的 内 容 。 

(3) XML 的 简单 使 其 易于 在 任何 应 用 程序 中 读 写 数据 ， 这 使 XML 很 快 成 为 数 
据 交 换 的 唯一 公共 语言 , 这 就 意味 着 程序 可 以 更 容易 地 与 Windows、Mac OS、Linux 
以 及 其 他 平台 下 产生 的 信息 结合 ， 然 后 可 以 很 容易 加 载 XML 数据 到 程序 中 并 进行 
分 析 ， 并 以 XML 格式 输出 结果 。 

(4) XML 重新 定义 了 SGML 的 一 些 内 部 值 和 参数 ， 去 掉 了 大 量 的 很 少 用 到 的 
功能 , 这 些 繁 杂 的 功能 使 得 SGML 在 设计 网 站 时 显得 复杂 化 。 XML 保留 了 SGML 
的 结构 化 功能 ， 这 样 就 使 得 网 站 设计 者 可 以 定义 自己 的 文档 类 型 ,XML 同时 也 推 
出 一 种 新 型 文档 类 型 ， 使 得 开发 者 也 可 以 不 必定 义 文档 类 型 。 

(5) XML 是 个 公共 格式 (不 专属 于 任何 一 家 公司 )， 故 XML 技术 不 会 成 为 少数 
公司 的 春 利 工具 ， 同 时 ，XML 还 是 一 个 不 依附 于 特定 浏览 器 的 语言 


3.4.2 XML 的 重要 作用 


(1) XML 可 以 将 HTML 与 数据 分 离 。 通 过 使 用 XML, 您 的 数据 可 存储 于 HTML 
之 外 。 

(2) XML 用 于 交换 数据 。 通 过 使 用 XML， 可 以 在 互 不 兼容 的 系统 间 交 换 数据 。 

(3) XML 和 电子 商务 。 通 过 使 用 XML， 可 以 在 因特网 上 交换 金融 信息 。 

(4) XML 可 被 用 来 共享 数据 。 通 过 使 用 XML， 纯 文本 文件 可 用 于 共享 数据 。 

(5) XML 可 用 于 存储 数据 。 通 过 使 用 XML， 纯 文本 文件 可 用 于 存储 数据 。 

(6) XML 可 被 用 来 创建 新 的 语言 。XML 是 WAP 和 WML 的 重要 基础 。 


3.4.3 “Excel 导入 的 XML 数据 类 型 


Excel 主要 处 理 两 种 类 型 的 XML 文件 : 

(1) XML 数据 文件 (*.xmD: 此 类 型 文件 包含 自 定义 标记 和 结构 化 数据 。 

(2) 架构 文件 (*.xsd): 此 类 型 文件 包含 强制 实施 规则 (例如 数据 类 型 和 验证 ) 的 架 
构 标 记 。 


3.4.4 XML 数据 导入 


(1) 启动 Excel， 单 击 左 上 角 的 “Office 按钮 ”， 在 下 拉 菜 单 中 选择 “打开 ” 功 
能 项 ， 出 现 “ 打 开 ” 窗 口 ， 选 择 XML 文件 存放 的 路 径 和 文件 名 ， 如 图 3-41 所 示 。 
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ET 国 
NPN): HH ed KH i i mr i | 


CoD Ca ) 


图 3-41 选择 XML 文件 


(2) 单 击 “ 打 开 ” 按 钮 ， 出 现 打 开 XML 方式 对 话 框 ， 如 图 3-42 所 示 。 


打开 x 


3-42 XML 打开 方式 对 话 框 


(3) 选择 “使 用 XML 源 任务 窗 格 ” 单 选 按钮 ， 单 击 “ 确 定 ” 按 钮 ， 出 现 XML 
源 映射 对 话 框 ， 如 图 3-43 所 示 。 


司 xl: 余 铬 方向 
后 见 as1. 科 目 畏 助 核算 
加 msl. 科目 篇 号 
EE 
加 asl :辅助 项 名 称 测 
> 


4 
和 RH 
ED 
村 出 的 R 

加 时 ?0 提示 


3-43 ”XML 源 映射 对 话 框 
。82 。 
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(4) 选择 需要 引入 的 元 素 名 称 ， 拖 动 到 工作 乱 中 的 单元 格 ， 使 该 元 素 映 射 到 该 
单元 格 ， 如 要 将 会 计 科目 包含 的 全 部 元 素 映射 到 工作 表 中 ， 则 单 击 选择 “NS1: 会 计 
科目 ”， 然 后 拖 动 到 对 应 的 单元 格 中 ， 如 图 3-44 所 示 。 


图 3-44 数据 源 映射 


(5) 在 “ 表 工 具 设计 ”选项 卡 上 的 “外 部 表 数 据 ” 组 中 ， 单 击 “ 刷 新 ”功能 项 ， 
实现 XML 数据 的 引入 ， 如 图 3-45 所 示 。 


ee 


| 要 名 称 ET 于 时 全 团 标 行 同 乱 - 列 | [EGG 
= 轩 网 用 江 光 吕 打开 | 由 汇总 行 加 最 后 - 列 Ea 
es | 党 网 贸 边 行 同 锌 边 列 


图 3-45 引入 数据 


(6) 在 “数据 ”选项 卡 上 的 “获取 外 部 数据 ”组 中 ， 单 击 “ 现 有 连接 ”， 发 现 
在 “此 工作 敌 中 的 连接 ”中 有 新 的 信息 加 入 ， 如 图 3-46 所 示 。 
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| 此 计算 机 的 连接 文件 
本 | MSW MoneyCentral 股票 行情 

EY Ca) 

NSH WoneyCentral 投资 者 汇率 


a 
B® ce) 


MSN WoneyCentral 投资 者 主要 指数 
[空白 ] 


Ea 


图 3-46 数据 连接 


3.5 复习 思考 题 


(1) 简 述 数 据 连 接 文 件 与 数据 连接 信息 的 区 别 与 联系 。 

(2) Excel 中 如 何 创建 数据 连接 和 管理 数据 连接 ? 

(3) 简 述 采用 Query 方式 建立 Excel 访问 外 部 数据 库 文件 的 优点 和 缺点 。 
(4) 简 述 XML 的 含义 和 特点 。 

2. 判断 题 


(1) 数据 连接 文件 与 数据 连接 信息 既 有 区 别 又 有 联系 。(  ) 
(2) “此 计算 机 的 连接 文件 ”， 显 示 目 前 存储 在 “我 的 文档 ”中 的 “我 的 数据 
源 ” 文 件 夹 中 的 数据 连接 文件 或 者 数据 连接 文件 的 快捷 方式 。(  ) 
(3) Excel 通过 已 经 存在 的 数据 连接 文件 建立 工作 短 中 某 张 表 与 数据 源 的 联系 ， 
- 旦 该 联系 建立 成 功 ，Excel 将 该 数据 连接 文件 的 信息 复制 到 该 工作 短 中 保存 ， 即 
数据 连接 信息 ( “)。 
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(4) Excel 通过 数据 连接 文件 建立 工作 籍 与 数据 源 的 联系 后 ， 如 果 “ 我 的 文档 ” 
中 的 “我 的 数据 源 ” 文 件 夹 内 没有 该 数据 连接 文件 ， 将 在 该 文件 夹 中 创建 一 个 数据 
连接 文件 的 快捷 方式 。( ” ) 

(5) 当 Excel 遇 到 文本 识别 符 时 ， 识 别 符 后 面 且 下 一 识别 符 前 面 的 所 有 文本 都 
会 作为 一 个 值 导入 ， 即 使 文本 中 包含 一 个 分 隔 符 也 是 如 此 。(  ) 

3. 单项 选择 题 


(1) Excel 建立 一 个 与 外 部 数据 源 连接 的 数据 连接 文件 后 ， 该 数据 连接 文件 将 
存放 在 。 
A. 控制 面板 B. 我 的 文档 C. 我 的 电脑 D. 打印 机 和 传真 
(2) 计算 机 可 能 禁用 与 外 部 数据 的 连接 ， 若 要 在 打开 工作 等 时 连接 到 数据 ， 必 


须 通过 使 用 启用 数据 连接 。 
A. 密码 B. 权限 设置 C. 信任 中 心 D. 网 上 激活 
(3) Office 的 数据 连接 文件 其 扩展 名 为 5 
A. .doc B. .xls C..odc D. .odb 


(4) 数据 导入 中 ， 要 将 所 有 货币 数字 字符 列 转 换 为 Excel 货币 格式 ， 选 择 列 数 
据 格式 为 和 
A. 常规 B. 日 期 C. 文本 D. 货币 
(5) 数据 导入 时 ， 如 果 列 中 包含 混合 格式 (如 字母 和 数字 字符 )，Excel 会 将 列 转 
换 为 格式 。 


A. 常规 B. 日 期 C. 文本 D. 货币 
4. 多 项 选择 题 
(1) Excel 2007 中 的 所 有 连接 分 为 三 种 。 

A. 此 工作 憩 中 的 连接 B. 网 络 连接 文件 

C. 此 计算 机 的 连接 文件 D. 文档 文件 的 连接 
(2) 导入 数据 中 ， 可 以 选择 数据 在 工作 簿 中 的 显示 方式 有 。 


A. 表 ”B. 数据 透视 表 ”C. 数据 透视 图 和 数据 透视 表 D. 以 上 都 不 是 


(3) 金蝶 KK/3 数据 引出 可 以 有 格式 。 

A. .xls B. .xml C. .mdb D. .txt 
(4) 文本 文件 导入 中 的 文件 分 隔 符号 有 机 

A.TAB B. 去 号 C. 分 号 D. 其 他 
(5) 文本 文件 导入 中 的 列 的 数据 格式 有 . 

A. 常规 B. 日 期 G: 文本 D. 不 导入 
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(6) XML 拥有 


等 重要 作用 。 
A. 交换 数据 。 B. 电子 商务 C. 储存 数据 。 D. 创建 新 的 语言 
(7) Excel 2007 导入 的 XML 文件 类 型 。 
A. 数据 文件 (*.xml) B. 数据 文件 (*.html) 
C. 架构 文件 (*.xls) D. 架构 文件 (*.xsd) 
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第 4 章 
财务 管理 模型 


4.1 财务 分 析 模型 


财务 分 析 即 财务 报表 分 析 ， 是 在 对 企业 财务 报表 的 数据 进行 汇总 、 分 析 、 研 究 
的 基础 上 ， 评 价 企业 过 去 和 现在 的 财务 状况 、 经 营 成 果 以 及 预测 今后 发 展 趋势 的 一 
种 重要 方法 ， 其 主要 的 方法 有 比率 分 析 法 、 趋 势 分 析 法 和 综合 分 析 法 。 


4.1.1 财务 分 析 概述 


1. 数据 来 源 


(1) 会 计 核算 数据 : 本 单位 会 计 核算 资料 ， 通 过 整理 、 加 工 可 生成 各 种 财务 报 
表 ， 进 一 步 汇 总 整理 后 ， 可 得 出 一 系列 的 财务 指标 ， 是 财务 分 析 的 重要 数据 。 按 照 
会 计 工 作 使 用 的 工具 来 看 , 它 又 分 为 手工 会 计 核算 数据 和 信息 化 会 计 核 算数 据 两 类 。 

(2) 辅助 数据 : 财务 分 析 有 时 候 也 需要 一 些 本 单位 以 外 的 数据 ， 如 其 他 企业 的 
会 计数 据 (年 报 、 季 报 )、 同 行业 的 平均 数据 、 国 家 和 地 区 宏观 经 济 指标 等 作为 辅助 
数据 。 这 些 数据 通常 在 报刊 文件 上 登载 ， 现 在 网 络 上 也 可 以 方便 地 查询 和 收集 。 

2. 从 数据 库 中 获取 数据 


财务 分 析 中 的 大 量 数据 来 自 于 会 计 核 算数 据 ， 在 会 计 信息 化 日 益 普及 的 今天 ， 
绝 大 多 数 的 会 计 核算 数据 归属 于 信息 化 会 计 核算 数据 这 一 类 ， 即 利用 会 计 信息 系统 
处 理 各 种 会 计 业 务 ， 其 产生 的 会 计 核算 数据 也 保存 在 计算 机 的 数据 库 文件 中 。 利 用 
Excel 强大 的 数据 库 功 能 , 可 以 方便 地 从 多 种 数据 库 文件 中 获取 会 计 核 算数 据 。Excel 
主要 有 以 下 三 种 数据 库 数 据 获 取 方 式 。 

(D 数据 连接 方式 : 使 用 数据 连接 文件 或 者 数据 连接 信息 ，Excel 可 以 非常 方便 地 
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建立 工作 籍 与 外 部 数据 库 之 间 的 联系 ， 可 以 将 这 些 数据 库 包 含 的 数据 引入 到 工作 夭 中 ， 
还 可 以 利用 刷新 功能 ， 保 持 工作 敌 与 数据 库 数 据 的 一 致 性 ， 其 详细 内 容 参见 第 3 章 。 

(2) QUERY 方式 (查询 方式 ): 使 用 QUERY 也 可 以 方便 地 从 数据 库 中 检索 需要 分 
析 的 数据 。 同 时 ， 当 原始 数据 库 更 新 信息 后 ， 可 以 自动 刷新 Excel 中 对 应 的 报表 。 使 
用 QUERY 方式 可 以 访问 以 下 数据 库 和 文件 : Microsoft Access、 Microsoft SQL Server、 
DBASE、FoxPro、Microsoft Excel、Oracle、Paradox 等 ， 其 详细 内 容 参见 第 3 章 。 

(3) VBA 方式: VBA 即 Visual Basic Application， 是 Microsoft Office 系列 软件 
中 自 带 的 程序 设计 语言 ， 利 用 它 同样 可 以 方便 地 从 数据 库 中 获取 数据 ， 详 细 内 容 参 
见 第 5 章 。 


4.1.2 常见 财务 分 析 指 标 


1. 变现 能 力 指标 


(1) 流动 比率 = 流动 资产 /流动 负债 。 

(2) 速 动 比率 = 速 动 资产 /流动 负债 。 其 中 ， 速 动 资产 为 流动 资产 减 去 变现 能 力 
较 差 的 流动 资产 ， 如 存货 等 。 

(3) 现金 比率 = 现金 /流动 负债 ， 其 中 ， 现 金 包 括 企 业 库存 现金 、 银 行 存款 和 短 
期 内 能 变现 的 有 价 证 券 等 。 

2. 资产 管理 指标 


(1) 存货 周转 率 = 销 货 成 本 /平均 存货 。 其 中 ， 平 均 存 货 可 以 用 资产 负债 表 期 初 
与 期 末 平 均值 来 计算 。 

(2) 应 收 账 款 周 转 率 = 主 营业 务 收 入 /平均 应 收 账 款 。 

(3) 流动 资产 周转 率 = 主 营业 务 收 入 /平均 流动 资产 。 

(4) 总 资产 周转 率 = 主 营业 务 收入 /平均 资产 总 额 。 

3. 负债 管理 指标 


(1) 资产 负债 率 = 负 债 总 额 /资产 总 额 。 

(2) 产权 比率 = 负债 总 额 /所 有 者 权益 。 

(3) 有 形 净 值 债务 比率 = 负债 总 额 /(( 所 有 者 权益 无 形 资产 净值 )。 
(4) 利息 周转 倍数 =( 净 利润 + 所 得 税 + 利 息 )/ 利 息 。 

4. 赢利 能 力 指标 

(1) 销售 净利 率 = 净 利润 / 主 营 业务 收入 。 

(2) 销售 毛利 率 = 毛 利 / 主 营 业务 收入 ， 毛 利 = 销 售 收入 销售 成 本 。 
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(3) 总 资产 报酬 率 = 息 税 前 利润 /平均 资产 总 额 。 
(4) 净 资 产 收益 率 = 净 利润 /平均 股东 权益 ， 股 东 权 益 = 公 司 资产 负债 。 


4.1.3 ”财务 分 析 模 型 实验 
1. 实验 目的 
(1) 掌握 Excel 中 财务 比率 分 析 模 型 的 建立 。 
(2) 掌握 Excel 中 财务 综合 分 析 模型 的 建立 。 
2. 实验 内 容 


(1) 将 资产 负债 表 和 损益 表 的 年 报表 引入 Excel。 

(2) 根据 引入 的 年 报表 数据 ， 计 算 各 种 财务 分 析 指 标 。 
(3) 利用 财务 分 析 指 标 ， 进 行 该 公司 的 综合 财务 分 析 。 
3. 实验 案例 


按照 提供 的 利润 表 和 资产 负债 表 的 数据 ， 计 算 以 下 财务 分 析 指 标 。 

(1) 变现 能 力 比 率 : 流动 比率 ， 速 动 比率 ， 现 金 比率 。 

(2) 资产 管理 比率 存货 周转 率 ， 应 收 账 款 周 转 率 ， 流 动 资产 周转 率 ， 总 资产 
周转 率 。 

G) 负债 管理 比率 : 资产 负债 率 ， 所 有 者 权益 比率 ， 有 形 净值 债务 比率 ， 利 息 
周转 倍数 。 

(4) 恒利 能 力 比 率 : 销售 净利 率 ， 销 售 毛利 率 ， 总 资产 报酬 率 ， 净 资产 收益 率 。 


国 实 验 提示 加 
为 保持 计算 口径 一 致 ， 上 述 等 式 中 使 用 资产 负债 表 数 据 时 ， 均 需 取 平均 数 ， 即 
年 初 与 本 期 数据 的 平均 数值 。 
(5) 综合 财务 分 析 基 本 数据 ， 如 表 4-1 所 示 。 
表 4-1_ 综合 财务 分 析 基本 表 


指标 指标 标准 值 指标 标准 评分 值 


一 、 偿 债 能 力 指标 

(D 流 动 比率 8 
2) 利息 周转 倍数 8 
(3) 现 金 比率 


(4) 所 有 者 权益 比率 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


( 续 表 ) 
指 标 指标 标准 值 指标 标准 评分 值 


二 、 俐 利 能 力 指标 


(DD) 销售 净利 率 8% 10 
CO) 总 资产 报酬 率 16% 10 
(3) 净 资产 收益 率 40% 16 
三 、 营 运 能 力 指标 

(D 在 货 周转 率 8 

(应 收 账 款 周转 率 

G3) 总 资产 周转 率 12 
合计 100 
评分 方法 ， 实际 得 分 = 指标 标准 评分 值 X (指标 实际 值 /指标 标准 值 ) 

4. 实验 步骤 


(1) 启动 Excel 2007， 新 建立 一 个 工作 短 ， 将 本 书 课件 中 提供 的 损益 表 ( 保 存在 
“实验 4.1” 文 件 夹 下 ) 复 制 到 Sheetl 中 ， 并 适当 调整 格式 ， 如 图 4-1 所 示 。 


C D E 了 


入 
姐 
小 


会 企 02 表 
年 月 单位 : 元 
hh,o00, 000.00 [ooooooo | 
[2 |r62875.00 [re2,875.00 | 
[3 [so00.00 [oo | 
4 |2125.00 [125.00 | 
ee es ees 
Ti a | 
"el Es = 
D7 5.305,56 [5,305.56 | 
ls hs,s0s.56 fis,305.56 | 
El HR Es== 
[25 heo,o000.00 fieo,000.00 | 
PE | 
30 160, 000.00 “160, 000. 00 


4-1 损益 表 


(2) 将 资产 负债 表 复 制 到 表 Sheet2 中 ， 并 适当 调整 格式 ， 如 图 4-2 所 示 。 
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ER EM) 


2 资产 负债 表 


3 会 企 0] 表 
蝙 制 单位 ; 年 月 单位 ; 元 
= 一 一 一 | 
FR 

时 时 


图 4-2 资产 负债 表 
(3) 插入 Sheet3， 设 计 财 务 分 析 的 基本 界面 ， 如 图 4-3 所 示 。 


图 4-3 财务 比率 分 析 格 式 设 计 
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(4) 对 应 各 个 比率 ， 录 入 计算 公式 ， 如 图 4-4 所 示 。 


分 析 结 果 


= (资产 负债 表 !E21+ 资 产 负债 表 !F21) / (资产 负债 表 !T20+ 资 产 负债 表 !J20) 
(资产 负债 表 !E21+ 资 产 负债 表 !F21- 资 产 负 债 表 !E16- 资 产 负债 表 !F16) / (资产 负债 表 !I20+ 资 产 负债 未 !T20) 
上 =( 资 产 负 合 表 !E7+ 资 产 负 合 表 !F7+ 资 产 负 债 表 !E8+ 资 产 负 合 表 !F8) / (资产 负债 表 !T20+ 资 产 负债 表 !T20) 


ER 
资产 管理 比率 : 

环 芝 局 汐 二 | -所 蔓 素 !E8/(( 资 产 负债 表 !E16+ 资 产 负债 素 !F16) /2) 

(资产 负债 表 !E10+ 资 产 负 债 表 !F10) /2) 

(资产 负债 表 !E21+ 资 产 负债 表 !F21) /2) 

总 资产 局 东 未 |- 扬 蓝 表 ,ET/(( 资 产 负债 表 !E41+ 资 产 负债 表 !F41) /2) 


资产 负债 表 !T31+ 资 产 负 债 表 !J31) / (资产 负债 表 !E41+ 资 产 负债 表 !F41) 


所 有 者 反共 比 


= 
示 |= (资产 负债 表 !T38+ 资 产 负 债 表 !J38) / (资产 负债 表 !E41+ 资 产 负 倩 表 !F41) 
因 形 光 位 二 过 比 示 |= (资产 负债 表 !IT31+ 资 产 负债 表 !J31) / (资产 负债 表 !T38+ 资 产 负 债 表 !J38- 资 产 负 债 表 !E33- 资 产 负债 表 !F33) 
二 |=( 上 E22+ 捐 益 表 ,E14) /损益 表 !E14 


EFT 


4E8) / 换 蕊 表 !E7 
到 !E14) /( (资产 负债 表 !E41+ 资 产 负债 表 !F41) /2) 
3/( (资产 负债 表 !E41+ 资 产 负 债 表 !F41- 资 产 负债 表 !I31- 资 产 负债 表 !T31) /2) 


图 4-4 财务 比率 分 析 公 式 设计 


(5) 公式 录入 完毕 后 ， 自 动 计算 各 个 指标 的 结果 ， 如 图 4-5 所 示 。 


[RSaits， | | 


| 和 有利 点 霹 共 全 区 | 9 
0. 00633663 


图 4-5 财务 比率 分 析 结 果 


0. 10384001 


(6) 插入 Sheet4， 设 计 综合 财务 分 析 的 界面 ， 如 图 4-6 所 示 。 
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图 4-6 综合 财务 分 析 格 式 设计 
(7) 录入 公式 ， 如 图 4-7 所 示 。 


[| 

|= 财 务 分 析 !E20 |=E10* F10/D10. 
| 2a le [EM 分 析 !p23 上 El2+(F12/D12 
[=- 营运 能 力 抬 标 | | | | | 
[| _H ho | lsmcs:68,610:612,614:016) | 


图 4-7 综合 财务 分 析 公 式 设计 


(8) 自动 计算 结果 ， 如 图 4-8 所 示 。 


。93 。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


4. 596035744| 18. 3841429| 
3.754258437| 100.1135583| 
2 


4 
mime] 04 | 1 | 089615998 26. 8847996 
0. 004968808| 0. 310550491 


0. 006336634| 0. 25346534 
4. 62962963| 6.17283950 
0. 035491485| 0. 21294890 


197.631039 


图 4-8 综合 财务 分 析 结 果 


4.2 固定 资产 投资 模型 


固定 资产 是 在 社会 再 生产 过 程 中 可 供 长 时 间 反 复 使 用 ， 并 在 使 用 过 程 中 基本 上 
不 改变 其 实物 形态 的 劳动 资料 和 其 他 物质 资料 。 我 国会 计 实 务 中 ， 将 使 用 年 限 在 一 
年 以 上 的 房屋 、 建 筑 物 、 机 械 设 备 、 器 具 、 工 具 等 生产 经 营 性 资料 作为 固定 资产 。 
对 于 不 属于 生产 经 营 主要 设备 的 物品 , 单位 价值 在 2000 元 以 上 , 且 使 用 年 限 超过 两 
年 的 ， 也 作为 固定 资产 。 


4.2.1 固定 资产 投资 概述 


投资 是 指 投放 资金 于 一 定 的 对 象 ， 以 期 望 在 未 来 获取 效益 的 经 济 行为 ， 按 时 间 
长 短 ， 分 为 长 期 和 短期 投资 ， 固 定 资产 的 新 建 和 更 新 就 属于 长 期 投资 的 范畴 。 

固定 资产 投资 的 主要 特点 如 下 

(1) 回收 时 间 较 长 ， 固 定 资产 投资 往往 需要 几 年 甚至 十 几 年 才能 收回 。 

(2) 固定 资产 投资 的 变现 能 力 较 差 ， 固 定 资产 投资 的 实物 形态 主要 是 厂房 和 机 
器 设备 等 ， 不 易 改变 用 途 ， 出 售 困难 。 

(3) 固定 资产 投资 的 资金 占用 数量 相对 稳定 。 

(4) 固定 资产 投资 的 次 数 相 对 较 少 ， 固 定 资产 投资 一 般 较 少 发 生 ， 特 别 是 大 规 
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模 的 固定 资产 投资 ， 一 般 要 几 年 甚至 十 几 年 才 发 生 一 次 。 
4.2.2 固定 资产 投资 管理 程序 


固定 资产 投资 具有 相当 大 的 风险 ， 一 旦 决策 失误 ， 就 会 严重 影响 企业 的 财务 状 
况 和 现金 流量 ， 甚 至 会 使 企业 走向 破产 。 因 此 ， 固 定 资产 投资 不 能 在 缺乏 调查 研究 
的 情况 下 轻率 拍板 ， 而 必须 按 特 定 的 程序 ， 运 用 科学 的 方法 进行 可 行 性 分 析 ， 以 保 
证 决策 的 正确 有 效 。 固 定 资产 投资 决策 的 程序 一 般 包括 如 下 几 个 步骤 : 

(1) 投资 项 目的 提出 ， 企 业 的 各 级 领导 者 都 可 提出 新 的 投资 项 目 。 

(2) 投资 项 目的 评价 。 

@ 投资 项 目 进行 分 类 ， 为 分 析 评 价 做 好 准备 。 

@ 计算 有 关 项 目的 预计 收入 和 成 本 ， 预 测 投资 项 目的 现金 流量 。 

@ 运用 各 种 投资 评价 指标 ， 把 各 项 投资 按 可 行 性 的 顺序 进行 排队 。 

@ 写 出 评价 报告 ,请 上 级 批准 。 

G3) 投资 项 目的 决策 。 

@ 接受 这 个 项 目 ， 可 以 进行 投资 。 

@ 拒绝 这 个 项 目 ， 不 能 进行 投资 。 

@ 发 还 给 项 目的 提出 部 门 ， 重 新 调查 后 ， 再 做 处 理 。 

(4) 投资 项 目的 执行 。 

决定 对 某 项 目 进行 投资 后 ， 要 积极 筹措 资金 ， 实 施 投资 。 在 投资 项 目的 执行 过 
程 中 ， 要 对 工程 进度 、 工 程 质 量 、 施 工 成 本 进行 控制 ， 以 便 使 投资 按 预 算 规定 保质 

(5) 投资 项 目的 再 评价 。 

在 投资 项 目的 执行 过 程 中 ， 应 注意 原来 做 出 的 决策 是 否 合理 、 正 确 。 


4.2.3 ”固定 资产 投资 的 现金 流量 


固定 资产 投资 现金 流量 是 指 与 固定 资产 投资 决策 有 关 的 现金 流入 和 流出 的 数 
量 ， 它 是 评价 投资 方案 是 否 可 行 时 必须 事先 计算 的 一 个 基础 性 指标 。 
1. 初始 现金 流量 


初始 现金 流量 是 指 固定 资产 从 购 入 (或 更 新 改造 ) 到 投入 使 用 前 的 时 间 段 内 所 发 
生 的 现金 流入 和 流出 的 数量 ， 包 括 以 下 四 个 部 分 : 
(D 固定 资产 上 的 投资 ， 包 括 固定 资产 的 购 入 或 建造 成 本 、 运 输 成 本 和 安装 成 
本 等 。 
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(2) 流动 资产 上 的 投资 ， 包 括 固定 资产 投入 使 用 前 的 原材料 、 在 产品 、 产 成 品 
和 现金 等 流动 资产 的 投资 。 

(3) 其 他 投资 费用 ， 指 与 固定 资产 投资 有 关 的 职工 培训 费 、 谈 判 费 、 注 册 费 

(4) 原 有 固定 资产 的 变价 收入 ， 主 要 是 指 固定 资产 更 新 时 原 有 固定 资产 变卖 所 
得 的 现金 收 入 。 


2. 营业 现金 流量 


营业 现金 流量 是 指 固定 资产 投入 使 用 后 ， 在 其 生命 周期 内 生产 经 营 所 带 来 的 现 
金 流入 和 流出 的 数量 ， 这 种 现金 流量 一 般 按 年 度 进行 计算 。 这 里 的 现金 流入 一 般 是 
指 营业 现金 收入 ， 现 金 流出 是 指 营业 现金 支出 和 交纳 的 税金 。 如 果 投资 项 目的 年 销 
售 收入 等 于 营业 现金 收入 ， 付 现成 本 ( 指 不 包括 折旧 的 成 本 ) 等 于 营业 现金 支出 ， 屠 
么 ， 年 营业 现金 净 流量 可 推导 为 

税 前 利润 = 营业 现金 收入 - 付 现成 本 - 折旧 

所 得 税 = 税 前 利润 X 所 得 税 税率 

净利 润 = 营业 现金 收入 - 付 现成 本 - 折旧 - 所 得 税 

该 公式 中 只 有 折旧 与 现金 流 无 关 ， 所 以 可 推导 现金 净 流量 公式 如 下 

现金 净 流量 = 净利 润 + 折旧 

也 可 以 如 下 表示 : 

现金 净 流量 -营业 现金 收入 - 付 现成 本 - 所 得 税 -( 营 业 现金 收入 - 付 现成 本 ) x 
(1 - 所 得 税率 )+ 折 旧 x 所 得 税率 

3. 终结 现金 流量 

终结 现金 流量 是 指 固定 资产 报废 、 出 售 时 所 发 生 的 现金 流入 和 流出 的 数量 ， 包 
括 三 个 部 分 的 内 容 

(1) 固定 资产 的 残 值 收入 或 变价 收入 。 

(2) 原来 垫 支 在 各 种 流动 资产 上 的 资金 的 收回 。 

G) 停止 使 用 的 土地 的 变价 收入 等 。 


4.2.4 固定 资产 投资 涉及 的 函数 


1. 净 现 值 函数 


语法 : NPV(RATE, VALUE1, VALUE?2, ...)。 
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功能 :在 已 知 未 来 连续 期 间 的 现金 净 流量 和 期 望 收益 率 的 情况 下 ， 返 回 现金 净 
流量 现 值 之 和 。 

参数 说 明 : 

RATE 一 一 期 望 收益 率 ; 

VALUE1，VALUE2，...，VALUEN 一 一 1~N 期 期 末 的 现金 净 流量 。 


国教 学 提示 图 

(1) 各 个 期 间 的 长 度 必须 相同 ， 而 且 现 金 流 入 流出 时 间 均 在 期 末 。 

(2) 时 间 在 期 初 的 投资 项 目 ， 可 以 将 第 一 期 单列 ， 其 他 期 作为 期 末 即 可 ， 其 计 
算 公式 为 : VALUE1+NPVGRATE，VALUE2，VALUE3，.…)。 


2. 内 含 报酬 率 函 数 


语法 : IRR(VALUE1, VALUE?2, ...,，GUESS) 

功能 : 返回 连续 期 间 的 现金 净 流 量 的 现 值 之 和 为 零 的 期 望 收 益 率 。 
参数 说 明 : 

GUESS 一 一 函数 IRR 计算 结果 的 估计 值 。 


国教 学 提示 图 

(1) 连续 期 间 的 现金 净 流量 必须 至 少 包含 一 个 正 数 和 一 个 负数 ， 一 般 情 况 是 一 
个 负数 与 多 个 正 数 。 

(2) GUESS 可 以 省 略 ， 默 认为 0.1。 

(3) IRR 函数 有 可 能 没有 结果 。 


3. 年 金 现 值 函数 


语法 : PV(RATE, NPER, PMT, FV, TYPE). 

功能 : 在 已 知 利率 、 总 期 数 、 年 金 的 条 件 下 ， 返 回 年 金 的 现 值 。 

参数 说 明 : 

RATE 一 一 期 望 收益 率 ; 

NPER 一 一 总 期 数 ; 

PMT 一 一 年 金 ; 

FV 一 一 终 值 ; 

TYPE 一 一 数字 0 或 者 1， 代 表 年 金 的 类 型 。0 代表 是 普通 年 金 ， 即 期 末 支 付 ， 
是 默认 值 ，1 代表 先 付 年 金 ， 即 期 初 支付 。 


国教 学 提示 图 
参数 中 ， 年 金 参 数 和 终 值 参 数 具 有 互 斥 性 ， 即 不 能 同时 输入 。 输 入 年 金 参 数 ， 
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则 不 能 输入 终 值 参数 , 计算 的 是 年 金 的 现 值 ; 反 过 来 输入 终 值 参数 而 放弃 年 金 参数 ， 
则 是 已 知 终 值 ， 计 算 复 利 现 值 。 


4. 年 金 终 值 函数 


语法 : FV(RATE, NPER, PMT, PV, TYPE)。 
功能 : 在 已 知 利率 、 总 期 数 、 年 金 的 条 件 下 ， 返 回 年 金 的 终 值 。 


参数 说 明 : 
PV 一 一 现 值 ; 


其 他 参数 参见 PV 函数 参数 说 明 。 


国教 学 提示 图 

参数 中 ， 年 金 参 数 和 现 值 参数 具有 互 斥 性 ， 即 不 能 同时 输入 。 输 入 年 金 参 数 ， 
则 不 能 输入 现 值 参数 ， 计 算 的 是 年 金 的 终 值 ; 反 过 来 ， 输 入 现 值 参数 而 放弃 年 金 参 
数 ， 则 是 已 知 现 值 ， 计 算 复 利 终 值 。 


5. 年 金 函 数 


语法 : PMT(RATE, NPER, PV, FV, TYPE)。 
功能 : 在 已 知 利率 、 总 期 数 、 年 金 现 值 或 年 金 终 值 的 条 件 下 ， 返 回 年 金 。 
参数 说 明 : 参见 PV 和 FV 函数 参数 说 明 。 


国教 学 提示 国 

参数 中 ， 现 值 参 数 和 终 值 参 数 只 需 输 入 一 个 即 可 ， 下 面 的 PPMT 函数 和 IPMT 
函数 也 具有 同样 的 特点 。 

6. 年 金 本 金 函数 


语法 : PPMT(RATE, PER, NPER, PV, FV, TYPE) 

功能 : 在 已 知 利率 、 总 期 数 、 年 金 现 值 或 年 金 终 值 的 条 件 下 ， 返 回 指定 期 的 年 
金 中 的 本 金 值 。 

参数 说 明 : 

PER 一 一 计算 的 某 个 指定 期 间 ; 

其 他 参数 参见 PV 和 FV 函数 参数 说 明 。 

7. 年 金利 息 函 数 


语法 : IPMT(RATE, PER, NPER, PV, FV, TYPE). 
功能 : 在 已 知 利率 、 总 期 数 、 年 金 现 值 或 年 金 终 值 的 条 件 下 ， 返 回 指定 期 的 年 
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金 中 的 利息 值 。 
参数 说 明 : 参见 PV、FV、PPMT 函数 参数 说 明 。 


8. 直线 折旧 函数 


语法 : SLN(COST, SALVAGE, LIFE)。 

功能 : 返回 固定 资产 在 一 个 期 间 中 的 线性 折旧 值 。 
参数 说 明 : 

COST 一 一 资产 原 值 ; 
SALVAGE 一 一 预计 的 净 残 值 ; 
LIFE 一 一 折旧 期 限 。 


9. 年 数 总 和 函数 


语法 : SYD(COST,，SALVAGE, LIFE, PER)。 

功能 : 返回 固定 资产 按 年 限 总 和 折旧 法 计算 的 指定 期 间 的 折旧 值 。 
参数 说 明 : 

PER 一 一 计算 折旧 的 指定 期 间 ; 

其 他 参数 参见 直线 折旧 函数 参数 说 明 。 

10. 双 倍 余额 递减 函数 


语法 : DDB(COST，SALVAGE，LIFE，PER，FACTOR)。 

功能 ;使 用 双 倍 余额 递减 法 或 其 他 指定 方法 ， 计 算 固 定 资产 在 指定 期 间 内 的 折 
旧 值 。 

参数 说 明 : 

FACTOR 一 一 为 递减 的 速率 。 可 以 为 3，4 等 数字 ， 也 可 以 省 略 ， 默 认 值 为 2， 
即 双 倍 余额 递减 法 。 

国教 学 提示 图 

双 倍 余额 递减 法 无 法 保证 折旧 后 净 残 值 与 预计 的 净 残 值 一 致 ， 所 以 其 最 后 两 个 
期 间 需 要 转换 为 直线 折旧 法 计 提 折旧 。 


4.2.5 固定 资产 投资 模型 实验 


1. 实验 目的 


(1) 掌握 Excel 中 各 种 时 间 价 值 函数 的 使 用 : NPVO,，PVO, FVO,， IRRO。 
(2) 掌握 Excel 中 各 种 折旧 函数 的 使 用 : SLNO，SYD0，DDB0。 
9090. 
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(3) 掌握 固定 资产 投资 中 现金 净 流 量 的 计算 公式 。 

(4) 利用 Excel 建立 固定 资产 投资 决策 的 模型 。 

2. 实验 内 容 

(1) 建立 模型 ， 计 算 实验 项 目 每 年 销售 收入 、 付 现成 本 (包括 变动 成 本 、 固 定 成 
本 ， 其 中 假设 固定 成 本 包括 管理 费用 、 营 业 费 用 和 财务 费用 )、 固 定 资产 折旧 与 无 形 
资产 摊 销 。 

(2) 建立 模型 ， 计 算 实验 项 目 每 年 的 净 现 金 流量 ， 如 表 4-2 所 示 。 


表 4-2_ 投 资 项 目 现金 流量 计算 表 


资产 投资 残 什 


垫 支 流量 
| 


G) 建立 模型 ， 计 算 实 验 项 目的 净 现 值 ， 按 李 某 的 投资 比例 ， 帮 助 其 做 出 决策 。 
3. 实验 案例 


(1) 基础 数据 提供 

李 某 拥有 一 项 高 档 油漆 配方 技术 ， 预 计 毛 利 很 高 。 但 要 正式 投产 需 大 量 投资 购 
置 厂房 、 设 备 等 ， 这 是 李 某 个 人 无 力 做 到 的 。 他 面临 两 种 选择 :一 是 将 技术 出 让 给 
别人 ， 立 即 获 现金 收入 30 万 元 ; 二 是 引入 合伙 人 投资 ， 自 己 生产 。 现 已 有 王 某 、 方 
某 两 人 表示 愿意 与 李 某 合作 ， 分 别 投资 厂房 、 一 条 生产 线 和 现金 若干 。 按 实物 评估 
作价 后 ， 公 司 注册 资本 共 150 万 元 ， 李 某 、 王 某 、 方 某 三 人 分 别 占 公司 注册 资本 的 
20%、40%、40%。 

如 成 立 公司 后 ， 可 用 抵押 贷款 方式 获取 足够 一 条 生产 线 需要 的 流动 资金 。 现 帮 
助 李 某 做 财务 方面 的 项 目 可 行 性 分 析 ， 使 他 进行 科学 决策 。 有 关 数 据 如 下 

@ 李 某 的 配方 技术 作价 30 万 元 。 

@ 一 条 生产 线 ， 正 常生 产能 力 3000 公斤 /月 ， 需 400 平方 米 厂房 ， 估 价 60 万 
元 ， 主 某 可 提供 。 

图 购买 一 套 完 整 设备 , 包括 10 台 研磨 机 ,5 台 搅 拌 机 及 辅助 设施 , 共 60 万 元 ， 
方 某 愿 出 资 购 买 。 
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图 营运 资金 估计 需 60 万 元 ， 可 用 厂房 和 技术 产权 抵押 ， 获 得 年 息 为 6% 的 一 
FE 期 流动 资金 贷款 。 在 保证 付 息 的 情况 下 ， 银 行 愿 意 为 其 办 理 一 年 以 后 各 期 的 续 贷 


回 假设 该 项 目 寿命 为 10 年 , 厂房、 机 器 设备 以 及 技术 均 按 直线 法 折旧 和 挫 销 ， 


其 中 厂房 和 机 器 设备 的 残 值 率 均 为 5%。 
@ 销售 及 价格 方面 : 当前 市 场 同类 产品 都 是 进口 品牌 ， 价 格 高 ， 几 家 需求 量 大 


的 企业 已 同 李 某 达成 口头 协议 ， 可 包销 其 产品 ， 价 格 为 80 元 /公斤 。 根 据 各 种 原 材 


料 、 工 人 工资 、 能 耗 ， 估 算 单位 产品 变动 成 本 为 35 元 /公斤 。( 由 于 其 原材料 构成 的 
相关 信息 无 法 获取 , 在 评估 过 程 中 只 能 以 该 数据 为 一 个 不 变 值 进行 计算 )， 其 他 固定 
的 付 现成 本 为 管理 费用 20 万 、 营 销 费用 10 万 和 财务 费用 (借款 年 利息 )。 

@ 收益 分 配 : 三 方 当事人 按照 其 项 目 投资 所 占 比 例 进 行 收益 分 配 。 
假设 企业 所 得 税率 为 25%， 企 业 投 资 者 要 求 的 必要 报酬 率 为 10%。 

(2) 前 提 假 设 : 李 、 主 、 方 三 位 合资 成 立 有 限 责任 公司 ， 企 业 初 创 期 由 于 缺乏 


足够 的 资金 ， 只 能 通过 抵押 贷款 方式 获取 流动 资金 ， 其 余 资产 都 须 由 出 资 人 以 自 有 
资产 注入 。 这 决定 了 前 期 该 企业 的 资本 结构 。 以 下 分 析 建 立 在 该 资本 结构 的 基础 之 


上 。 相 关 的 资金 成 本 也 就 是 流动 资金 的 贷款 利息 。 因 此 ， 为 简化 分 析 过 程 ， 可 将 筹 


资 决策 的 分 析 中 涉及 的 利息 、 所 得 税 等 因素 一 并 纳入 到 投资 分 析 中 去 ， 以 此 让 出 资 
人 一 目 了 然 地 衡量 出 其 投资 净 收益 的 状况 。 


4. 实验 步骤 
(1) 启动 Excel， 新 建立 一 个 工作 筹 ， 选 择 Sheet1， 将 基本 信息 录入 ， 如 图 4-9 


所 示 。 


同 


四 
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区 
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图 4-9 基本 信息 区 域 
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(2) 选择 Sheet2， 按 照 对 应 的 计算 公式 ， 设 计 实验 一 的 模型 界面 ， 并 填写 计算 
公式 ， 如 图 4-10 所 示 。 


图 4-10 实验 一 计算 公式 
计算 公式 为 : 


销售 收入 = 销售 数量 x 单价 x 时 间 

变动 成 本 = 销售 数量 x 单位 变动 成 本 x 时间 

固定 成 本 = 管理 费用 + 营销 费用 + 财务 费用 (借款 年 利息 ) 

付 现成 本 = 变动 成 本 + 固定 成 本 

年 折旧 及 摊 销 总 额 = 设 备 折 旧 + 厂 房 折旧 + 无 形 资产 摊 销 
所 得 税 =( 销 售 收入 - 付 现成 本 - 折旧 及 捧 销 ) x 所 得 税 税率 
年 营业 现金 净 流 量 = 销 售 收入 - 付 现成 本 - 所 得 税 

厂房 折旧 : 使 用 SLN 函数 计算 

设备 折旧 : 使 用 SLN 函数 计算 

无 形 资产 摊 销 : 使 用 SLN 函数 计算 


(3) 计算 结果 如 图 4-11 所 示 。 


人 
= 2880000. 00 
| 1260000.00 | 


Sl 1596000. 00 
| 57000.00 | 


57000. 00 
57000. 00 
285000. 00 


| 285000.00 | 
图 4-11 实验 一 计算 结果 
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(4) 选择 Sheet3， 设 计 实 验 二 的 模型 界面 ， 并 填写 计算 公式 ， 如 图 4-12 所 示 。 


| 了 王 


图 4-12 实验 二 计算 公式 


其 中 ， 固 定 资产 残 值 为 厂房 、 设 备 、 无 形 资产 残 值 总 合 ， 其 公式 为 “= 基本 信 
息 !E11* 基 本 信息 !I11+ 基 本 信息 !E12* 基 本 信息 !I12+ 基 本 信息 !E13* 基 本 信息 !I13”。 
1~9 年 的 现金 净 流量 现 值 使 用 PV 函数 以 年 金 计算 方式 计算 ,其 公式 为 “= - PV( 基 


本 信息 !T10,9,SUM(E7:J7))”。 
第 10 年 的 现金 净 流量 现 值 使 用 PV 函数 以 求 复 利 现 值 的 方式 计算 ， 其 公式 为 


“= - PV( 基 本 信息 !I10,10,,SUM(E8:]8))”。 
图 实验 提示 图 
PV 函数 将 未 来 的 现金 收入 计算 为 现在 的 投资 金额 ， 其 收入 与 投资 是 两 个 相反 
的 方向 ， 所 以 ， 未 来 的 正 数 现金 收入 计算 为 现在 的 投资 时 将 为 负数 。 在 模型 中 ， 采 
取 直 接 添加 负 号 的 方式 来 进行 修正 即 可 。 


(5) 计算 结果 如 图 4-13 所 示 。 


图 4-13 实验 二 计算 结果 
(6) 在 Sheet3 中 ， 选 择 一 个 空白 区 域 ， 设 计 投 资 决 策 界 面 ， 并 填写 公式 ， 如 图 


4-14 所 示 。 
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图 4-14 实验 三 计算 公式 


其 中 ， 投 资 厂 的 收益 以 项 目 净 现 值 总 和 乘 以 李 某 的 出 资 比率 计算 得 到 ， 最 后 的 
决策 使 用 正 函数 进行 处 理 , 如 果 投资 三 比 出 售 获 得 收益 高 则 投资 厂房 ,反之 则 出 售 。 
(7) 计算 结果 如 图 4-15 所 示 。 


图 4-15 实验 三 计算 结果 


4.3 存货 管理 模型 


存货 是 一 个 财务 上 的 概念 ， 指 企业 在 生产 经 营 过程 中 为 销售 或 耗 用 而 储备 的 资 
产 ， 包 括 库 存 中 的 、 加 工 中 的 和 在 途 的 各 种 原材料 、 燃 料 、 包 装 物 、 产 成 品 以 及 发 
出 商品 等 。 企 业 为 了 保证 生产 经 营 过程 的 连续 ， 必 须 有 计划 地 购 入 、 耗 用 和 销售 
存货 。 


4.3.1 存货 管理 概述 


存货 是 一 项 重要 的 流动 资产 , 它 的 存在 势必 占用 大 量 的 流动 资金 , 一 般 情况 下 ， 
存货 占 企 业 总 资产 的 30% 左 右 ， 其 管理 、 利 用 情况 如 何 ， 直 接 关 系 到 企业 的 资金 占 
用 水 平 以 及 资产 运作 效率 ， 在 不 同 的 存货 管理 水 平 下 ， 企 业 的 平均 资金 占用 水 平 差 
别 是 很 大 的 。 实 施 正确 的 存货 管理 方法 ， 通 过 降低 企业 的 平均 资金 占用 水 平 ， 提 高 
存货 的 流转 速度 和 总 资产 周转 率 ， 最 终 提 高 企业 的 经 济 效益 。 

另外 ， 从 市 场 营 销 的 角度 来 看 ， 存 货 作 为 企业 物流 的 重要 成 分 ， 其 成 本 降低 的 
潜力 比 任何 其 他 市 场 营销 环节 要 大 得 多 ， 如 企业 物流 成 本 占 营销 成 本 的 50%， 这 其 
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中 的 存货 费用 大 约 能 占 35%， 而 物流 成 本 又 能 占 产品 全 部 成 本 的 30% 一 85%; 在 美 
国 , 直接 劳动 成 本 不 足 工厂 成 本 的 10%, 并 且 还 在 不 断 下 降 , 全 部 生产 过 程 只 有 5% 
的 时 间 用 于 加 工 制造 ， 余 下 95% 的 时 间 都 是 储存 和 运输 时 间 。 由 此 看 来 ， 降 低 存货 
成 本 已 经 成 为 “第 三 利润 源泉 ”在 企业 管理 的 其 他 环节 成 本 降低 潜力 不 大 的 情况 下 ， 
在 降低 存货 成 本 上 下 功夫 已 经 是 成 本 管理 和 企业 管理 的 最 终 所 向 。 


4.3.2 ”经济 订货 批量 ; 


经 济 订货 批量 法 是 根据 企业 日 常 的 存货 用 量 和 相关 资金 成 本 ， 运 用 数学 模型 求 
得 企业 日 常 的 最 佳 存货 持 有 量 的 方法 。 该 方法 是 建立 在 一 系列 的 假设 基础 上 的 ， 其 
控制 目的 就 是 找到 使 存货 总 成 本 为 最 小 时 的 订购 量 ， 这 个 订货 量 可 以 使 订货 成 本 和 
储存 成 本 中 的 变动 成 本 总 和 最 低 ， 经 济 批量 规划 法 因 其 科学 性 和 合理 性 在 企业 存货 
管理 中 得 到 广泛 应 用 。 

1. 理论 方法 

订货 批量 是 指 企业 每 次 订购 存货 的 数量 。 订 货 批量 的 增加 ， 一 方面 可 以 减少 订 
货 的 次 数 ， 从 而 减少 订货 成 本 ， 另 一 方面 伴随 着 平均 存货 的 增加 ， 仓 储 成 本 也 相应 
增加 ; 反之， 订货 批量 的 减少 ， 将 使 仓储 成 本 减少 而 订货 成 本 增加 。 

经 济 订货 批量 法 是 指 在 保证 企业 正常 生产 经 营 的 情况 下 ， 存 货 总 成 本 最 低 时 的 
订货 批量 ， 由 经 济 订货 批量 确定 的 存货 成 本 将 是 最 低 成 本 。 

经 济 订货 批量 理论 建立 在 以 下 基本 假设 基础 上 : 

(1) 企业 存货 年 需要 量 是 可 知 的 ， 并 且 日 消耗 是 基本 均衡 的 。 

(2) 货物 到 达 的 时 间 是 固定 的 ， 并 且 每 天 送 货 数量 均衡 。 

(3) 不 考虑 缺 货 的 情况 (经 济 批量 法 的 前 提 是 保证 正常 的 生产 经 营 )。 

2. 数学 推导 


(1) 变量 定义 ， 如 表 4-3 所 示 。 


表 4-3_ 变 量 定义 明细 


变量 名 称 变量 含义 变量 含义 
7Z 存货 总 成 本 订货 成 本 
TG 采购 成 本 仓储 成 本 
经 济 订货 批量 每 次 订货 批量 
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( 续 表 ) 
变量 含义 
每 次 订货 变动 成 本 
采购 单价 
每 日 消耗 量 
当 订 货 数 量 超过 E 时 ， 
有 折扣 ， 折 扣 率 是 I 


订货 到 送 货 时间 


存货 中 的 固定 成 本 | | 


(2) 公式 推导 
TZ=TD+7TG+7C 
TD -9 “V+ 订货 固定 成 本 


TG=O*P:(l 中 + 采购 固定 成 本 


(Dp-2.D i 
76= 一 全 一 mC+ 售 依 轩 定 记 本 


D 
历 = 三 :元 

zz-2 .站 人 3 .cro:p.d D+G 

D 区 
经 济 订货 批量 是 在 TZ 最 低 时 的 订货 批量 ， 所 以 求 导 后 求 得 : 
pr= [2:7.0 5 

和 > = 区 

最 低 总 变动 成 本 ， 固 定 成 本 不 随 订货 批量 变化 而 变化 


TZ 2.v.0.c.0-) 


最 佳 订货 次 数 : N*=_Q 
各 


4.3.3 规划 求解 工具 


规划 求解 工具 是 Excel 提供 的 功能 强大 的 优化 和 资源 配置 工具 ， 其 可 以 对 直接 
或 间接 与 目标 单元 格 中 公式 相 联 系 的 一 组 单元 格 中 的 数值 进行 调整 ， 最 终 在 目标 单 
元 格 公式 中 求 得 期 望 的 结果 。 
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规划 求解 功能 在 Excel 的 默认 启动 项 目 中 没有 启动 ， 需 要 手动 加 载 该 功能 。 
1. 加 载 规划 求解 


(1) 启动 Excel 2007 后 , 单 击 Microsoft Office 按钮 座 ,然后 选择 右 下 角 的 “Excel 
选项 ”， 打 开 “Excel 选项 ”对 话 框 ， 如 图 4-16 所 示 。 


[和 eel aso. | fl 


使 用 Excsl 时 采用 的 首选 硕 
回 远 和 时 旦 示 池 动工 具 宕 (W) 
回 启用 立时 预 几 由 
口 在 W 有 区 亚 示 “开发 工 ”进贡 不 [D) 
回 总 使 夺 ClesrTypeD 


图 4-16 ”Excel 选项 对 话 框 


(2) 单 击 “ 加 载 项 ”， 然 后 在 “管理 ”下 拉 列 表 框 中 选择 “Excel 加 载 项 ”后 ， 
单 击 “ 转 到 ”按钮 ， 如 图 4-17 所 示 。 


[3 

DA-anALaBol Printabolpint dam 
Dat Office\office12\OFFRHD.DLL 
Dafice12\Lbrey\LOOKUP XLAM 
Dibrery\Analysis\ANALYS32.XU. 


发 布 害 
位 置 :DAMicrosoft Office\Office12\ibrarASOLVER\SOLVERXLAM 


说 明 : 月 于 优化 和 公式 求 韦 的 IT 具 


we [ece mn I [EG] 


4-17 选择 加 载 项 


(3) 出 现 “ 加 载 宏 ” 窗 口 后， 选择 “规划 求解 加 载 项 ” 复 选 框 ， 单 击 “ 确 定 ” 
按钮 ， 如 图 4-18 所 示 。 
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Internet Assistant VEA 
印 向 导 


口 
a 查阅 向 导 
由 分 析 工 具 库 -VBA 


口 条 件 求 和 向 导 


图 4-18 选择 加 载 宏 
国教 学 提示 图 


安装 Excel 时 未 完全 安装 者 ， 该 功能 无 法 使 用 。 需 要 提供 安装 光盘 进行 补充 安 
装 后 ， 方 能 使 用 。 


2. 启动 规划 求解 


(1) 加 载 规划 求解 后 ， 在 “数据 ”选项 卡 的 “分 析 ” 组 中 将 出 现 “规划 求解 ” 
功能 ， 如 图 4-19 所 示 。 


| 王 | i 
3 4 国 了 en| 守 时 me 汪汪 
We 排 本 -| 篇 计 攻 南 弛 


分 列 “ 弄 除 。。 组合 取 滑 组 会 分 类 汇总 “ | 
全 和 页 区 人 9 析 人 | 
E33 排序 和 各 迁 Cas 


图 4-19 规划 求解 菜单 


分 级 时 示 | 2 折 | 


(2) 选择 该 功能 后 ， 将 出 现 规划 求解 界面 ， 如 图 4-20 所 示 。 
规划 求解 眼 数 


设置 目标 单元 格 D): 
等 于 ， 四 晤 大作 胃口 最 值 。 〇 信和 为 WD 厅 
可 变 单 元 格 四) 


| 国 Da 
约束 四 : 


| CE 


更 改 E) 
| LM oD) 


图 4-20 ”规划 求解 界面 
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3. 规划 求解 参数 说 明 


(1) 目标 单元 格 。 最 终 得 到 优化 (最 大 、 最 小 或 指定 值 ) 的 单元 格 。 可 以 不 设置 目 
标 单元 格 ， 这 样 就 表示 找到 满足 全 部 约束 条 件 的 可 变 单元 格 的 值 。 

(2) 可 变 单元 格 。 与 目标 单元 格 中 公式 有 关 的 单元 格 。 规 划 求 解 将 自动 调整 它 
们 的 值 ， 得 到 目标 单元 格 优化 或 者 满足 全 部 约束 条 件 ， 最 多 可 设置 200 个 可 变 单 
元 格 。 

(3) 约束 。 对 目标 单元 格 和 可 变 单元 格 的 一 些 约束 条 件 ， 由 用 户 自己 添加 ， 如 
图 4-21 所 示 。 


单元 格 引用 位 置 8); 约束 值 (C) 
I _ 国 [< 图 | 


| 
[Ca ] [Cnw] [Cu 


图 4-21 约束 条 件 


(4) 选项 。 主 要 是 针对 优化 过 程 和 结果 的 一 些 设置 ， 如 图 4-22 所 示 。 


4-22 ”规划 求解 选项 


(5) 规划 求解 的 结果 。 规 划 求解 的 结果 有 两 种 : 一 是 得 到 优化 ， 并 将 结果 显示 
在 目标 单元 格 中 ; 二 是 没有 得 到 理想 的 结果 ， 即 结果 没有 收敛 。 不 管 是 哪 一 种 结果 ， 
都 要 出 现 规划 求解 结果 对 话 框 , 可 以 选择 保存 规划 求解 结果 , 也 可 以 选择 恢复 原 值 ， 
并 可 以 查看 敏感 性 报告 、 运 算 结 果 报告 、 限 制 区 域 报告 。 


*。109。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


4.3.4 存货 管理 模型 实验 


1. 实验 目的 

(1) 掌握 存货 管理 中 的 经 济 订货 批量 法 的 原理 。 

(2) 掌握 Excel 中 的 规划 求解 工具 的 使 用 。 

(G3) 依据 该 原理 ， 建 立 采 购 批 量 的 决策 模型 。 

(4) 使 用 Excel 中 的 规划 求解 工具 ， 进 行 最 优 订货 批量 的 计算 。 


2. 实验 内 容 

依据 下 面 的 资料 ， 建 立 模型 ， 分 析 得 出 该 企业 四 种 存货 采购 的 方案 ， 即 每 种 存 
货 的 经 济 订 货 批 量 和 再 订货 点 ， 以 及 其 对 应 的 成 本 。 

3. 实验 案例 


某 企 业 现在 需要 四 种 存货 ， 四 种 存货 来 自 同 一 个 供应 商 。 该 供应 商 规定 : 甲 存 
货 超 过 300、 乙 存货 超过 350、 丙 存货 超过 400、 丁 存货 超过 350 时 将 给 予 一 定 的 折 
扣 。 其 基本 数据 如 表 4-4 所 示 。 


表 4-4 实验 基本 数据 
基本 数据 
全 年 订货 量 | 3800 | 4000 3500 
每 次 订货 变动 成 本 20 20 
单位 存货 存储 每 年 成 本 3 2 
每 日 送 货 量 35 25 
每 日 消耗 量 25 10 
采购 单价 20 15 
订货 到 送 货 的 时 间 4 6 
达到 规定 数量 后 的 折扣 率 20%6 2%6 
4. 实验 步骤 


(1) 启动 Excel, 新 建立 一 个 工作 短 , 选择 Sheetl, 将 基本 信息 录入 , 如 图 4-23 
所 示 。 
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EE 


图 4-23 基本 数据 


(2) 选择 Sheet2， 设 计 存货 管理 决策 基本 界面 ， 如 图 4-24 所 示 。 
PO D | 下 


图 4-24 模型 求解 界面 


计算 公式 为 : 

订货 成 本 = 全 年 需求 量 /订货 批量 x 订货 变动 成 本 

采购 成 本 = 全 年 需求 量 x 单 价 x (1 -折扣 率 ) 

仓储 成 本 =( 订 货 批 量 -订货 批量 /每 日 送 货 量 x 每 日 消耗 量 )/2 x 单位 仓储 成 本 
总 成 本 = 订货 成 本 + 采购 成 本 + 仓储 成 本 

订货 次 数 = 全 年 需求 量 /订货 批量 

再 订货 点 = 每 日 消耗 量 x 送 货 时 间 


(3) 选择 规划 求解 工具 ， 并 进行 相应 的 设置 ， 如 图 4-25 所 示 。 
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4-25 参数 设置 


(4) 单 击 “ 求 解 ” 按 钮 ， 得 到 结果 ， 如 图 4-26 所 示 。 


图 4-26 计算 结果 


4.4 销售 预测 模型 


销售 预测 是 指 在 未 来 一 段 时 间 内 ， 对 全 部 产品 或 特定 产品 的 销售 数量 与 销售 金 
额 的 一 个 估计 。 销 售 预测 是 在 充分 考虑 各 种 影响 因素 的 基础 上 ， 结 合 本 企业 的 销售 
情况 ， 通 过 科学 的 分 析 方法 提出 切实 可 行 的 销售 目标 。 


4.4.1 ”销售 预测 概述 


1. 销售 预测 的 作用 


(1) 通过 销售 预测 ， 可 以 调动 销售 人 员 的 积极 性 ， 提 高 产品 的 销售 数量 ， 加 快 
销售 任务 的 完成 进度 。 

(2) 企业 可 以 以 销 定 产 ， 根 据 销售 预测 资料 ， 安 排 生产 ， 避 免 产 品 、 库 存 的 
积压 。 
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2. 销售 预测 的 程序 


(D 确定 预测 目标 

销售 预测 是 以 产品 的 销售 为 中 心 , 产品 的 销售 本 身 就 是 一 个 复杂 的 系统 。 有 关 
的 系统 变量 很 多 ， 例 如 市 场 需求 潜 量 、 市 场 占 有 率 、 产 品 的 售 价 等 。 而 对 于 这 些 变 
量 进行 长 期 预测 还 是 短期 预测 ， 这 些 变量 对 预测 资料 的 要 求 、 预 测 方法 的 选择 都 有 
所 不 同 。 所 以 ， 预测 目标 的 确定 是 销售 预测 的 主要 问题 。 

(2) 收集 和 分 析 资 料 

在 预测 目标 确定 以 后 ， 为 满足 预测 工作 的 要 求 ， 必 须 收集 与 预测 目标 有 关 的 资 
料 ， 所 收集 到 的 资料 的 充足 与 可 靠 程度 对 预测 结果 的 准确 度 具 有 重要 的 影响 。 所 以 ， 
对 收集 的 资料 必须 进行 分 析 ， 并 满足 以 下 条 件 。 

@ 资料 的 针对 性 : 所 收集 的 资料 必须 与 预期 目标 的 要 求 相 一 致 。 

@ 资料 的 真实 性 : 所 收集 的 资料 必须 是 从 实际 中 得 来 的 , 并 进行 必要 核实 后 的 
资料 。 

@ 资料 的 完整 性 : 资料 的 完整 性 直接 影响 到 销售 预测 工作 的 进行 。 所 以 ， 必 须 
采取 各 种 方法 ， 以 保证 得 到 完整 的 资料 。 

@ 资料 的 可 比 性 : 对 于 同一 种 资料 ， 来 源 不 同 ， 统 计 口 径 不 同 ， 差 别 也 可 能 很 
大 。 所 以 在 收集 资料 时 ， 对 所 得 到 的 资料 必须 进行 分 析 过 滤 ， 如 剔除 一 些 随 机 事件 
造成 的 资料 不 真实 性 ， 对 不 具备 可 比 性 的 资料 通过 分 析 进 行 调整 等 ， 以 避免 资料 本 
身 原因 对 预测 结果 带 来 误差 。 


3. 销售 预测 的 常用 方法 


一 般 来 说 ， 在 销售 预测 中 常用 的 方法 很 多 ， 以 下 介绍 最 具有 代表 性 的 三 种 ， 德 
尔 菲 法 、 时 间 序 列 分 析 法 、 回 归 分 析 法 。 

(1) 德尔 菲 法 。 德 尔 菲 法 是 指 以 不 记名 方式 根据 专家 意见 作出 销售 预测 的 方法 。 
德尔 菲 法 的 流程 是 先 召集 一 组 专家 参加 会 议 ， 会 议 第 一 阶段 得 到 的 结果 总 结 出 来 可 
作为 第 二 阶段 预测 的 基础 ， 通 过 组 中 所 有 专家 的 判断 、 观 察 和 期 望 来 进行 评价 ， 最 
后 得 到 共享 共有 更 少 偏差 的 预测 结果 。 

德尔 菲 法 的 最 大 优点 是 充分 民主 地 收集 专家 意见 ， 把 握 市 场 的 特征 。 但 是 ， 德 
尔 菲 法 一 般 只 能 得 到 企业 或 行业 的 预测 结果 ， 用 此 方法 所 求 得 的 地 区 、 顾 客 、 产 品 
分 类 等 预测 结果 就 没有 那么 精确 了 。 

(2) 时 间 序 列 分 析 法 。 时 间 序 列 分 析 法 是 利用 变量 与 时 间 存 在 的 相关 关系 ， 通 
过 对 以 前 数据 的 分 析 来 预测 将 来 的 数据 。 在 分 析 销 售 收入 时 ， 将 销售 收入 按照 年 或 
月 的 次 序 排 列 下 来 ， 以 观察 其 变化 趋势 。 时 间 序 列 分 析 法 现 已 成 为 销售 预测 中 具有 
代表 性 的 方法 。 
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(3) 回归 分 析 法 。 各 种 事物 彼此 之 间 都 存在 直接 或 间接 的 因果 关系 。 同样 的 ， 
销售 量 亦 会 随 着 某 种 变量 的 变化 而 变化 。 当 销售 与 时 间 之 外 的 其 他 事物 存在 相关 性 
时 ， 就 可 运用 回归 和 相关 分 析 法 进行 销售 预测 。 


4.4.2 ”工具 与 函数 


1. 数据 透视 表 


数据 透视 表 是 一 种 对 大 量 数据 汇总 和 建立 交叉 分 析 的 数据 分 析 技 术 和 工具 。 

(1) 准备 数据 源 。 数 据 透视 表 的 数据 来 源 主要 有 Excel 中 的 数据 清单 、 外 部 数据 
源 (如 Access 数据 库 )、 另 一 个 数据 透视 表 等 。 

(2) 选择 “插入 ”|“ 表 ”|“ 数 据 透 视 表 ”菜单 ， 如 图 4-27 所 示 。 


NESE 
蚀 Fi | ia | 
| 贞 媳 时 省 峡 
| 汶 s | 雪 | 图片 


图 4-27 数据 透视 表 菜 单 


(3) 在 “创建 数据 透视 表 ” 窗 口中 ， 确 定数 据 来 源 。 可 以 选择 一 个 表 或 一 个 区 
域 ， 也 可 以 使 用 外 部 数据 源 。 如 果 是 外 部 数据 源 ， 需 要 进行 一 些 基本 配置 ， 具 体 步 
又 与 前 面 讲述 的 使 用 Query 方式 连接 数据 库 一 致 。 另 外 ， 还 需要 确定 数据 透视 表 的 
显示 位 置 一 一 既 可 以 是 一 张 新 的 工作 表 ， 也 可 以 是 现 有 工作 表 ， 如 图 4-28 所 示 。 

创建 数据 透视 表 


请 渤 择 要 分 析 的 数据 
回 选择 一 个 表 或 区 域 @) 
表 / 区 域 @): | 

〇 使 用 外 部 数据 源 轴 


选择 连接 


连 授 名 称 


选择 放置 数据 透视 表 的 位 置 
加 新 工作 表 中 
名 现 有 工作 表 包 ) 
位 置 开 ): |Sheetl!$A$1 


图 4-28 创建 数据 透视 表 
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(4) 设置 好 数据 透视 表 的 数据 来 源 后 ， 单 击 “ 确 定 ” 按 钮 ， 出 现 “ 数 据 透 视 表 
字段 列表 ”窗口 ， 如 图 4-29 所 示 。 


图 4-29 数据 透视 表 选 择 字段 


(5) 将 需要 的 字段 名 称 拖 动 到 各 个 区 域 中 后 ， 将 生成 数据 透视 表 ， 如 图 4-30 
所 示 。 


3992000 
27340000 
119000 
624000 
290000 
120000 1 800000 
2400000 3912640 
4839000 6677000 36668640 48184640 


图 4-30 显示 最 后 结果 
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(6) 用 户 可 以 通过 数据 透视 表 中 的 各 个 下 拉 按 钮 改变 显示 的 内 容 ， 也 可 以 改变 
求 和 项 的 设置 来 改变 汇总 的 方式 。 
2. LINEST 函数 (回归 分 析 函 数 ) 


线性 回归 方程 分 为 直线 回归 方程 六 4 “了 +B 和 曲线 回归 方程 于 4 * Xt+B* 信 +C。 
Excel 可 以 利用 以 往 历史 数据 和 LINEST 函数 测算 方程 的 各 个 参数 , 从 而 确定 方程 式 。 

(1) 语法 : LINEST(Y’” S, X’ S，CONST，STATS)。 

(2) 功能 : 测算 线性 回归 方程 的 各 个 参数 4，B，C，R*( 相 关系 数 ， 据 以 判断 预 
测 数 据 的 可 靠 程度 ， 越 接近 1 越 可 靠 )。 

(3) 参数 说 明 

Y”S 一 一 因 变量 ， 在 销售 预测 中 代表 销售 量 ， 一 般 只 有 一 个 。 

X”S 一 一 自 变量 ， 代 表 与 销售 有 关 的 因素 ， 直 线 回 归 方程 具有 一 个 ， 曲 线 回 归 
方程 有 多 个 (将 开 看 成 是 页 ， 将 罗 看 成 玉 ， 是 两 个 自 变量 )， 每 一 个 都 是 一 个 数组 。 

CONST 一 一 是 否 有 常数 了 ， 为 False 表示 B=0， 为 True 或 省 略 表示 有 。 

STATS 一 一 一 般 为 True， 函 数 的 结果 是 一 个 多 维 数 组 (5X 参 数 个 数 ， 包 含 R?)， 
如 果 是 False， 则 结果 只 有 参数 本 身 而 已 ， 没 有 R? 的 值 。 

(4) 使 用 方法 

外 确定 回归 方程 类 型 ， 即 是 直线 回归 方程 还 是 曲线 回归 方程 。 如 图 4-31 所 示 。 


Y=AX+B 


4-31 “确定 回归 方程 


例子 中 选择 了 直线 回归 方程 。 
@ 其 中 了 代表 销售 量 ， 于 代表 月 份 ， 将 这 两 个 数据 的 历史 数据 输入 Excel 中 ， 
如 图 4-32 所 示 。 


月 份 销售 量 
1 3400 
2 4300 
3 4500 
4 4700 
5 5200 
6 5400 
了 5100| 
8 4800 
9 4500 


4-32” 自 变量 和 因 变 量 的 关系 
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@ 直线 回归 方程 中 有 两 个 参数 ， 分 别 是 4 和 B， 所 以 返回 的 结果 是 一 个 5X2 
的 多 位 数组 。 选 择 一 个 5X2 的 空白 区 域 ， 以 数组 输入 的 方式 ， 输 入 回归 分 析 函 数 ， 
如 图 4-33 所 示 。 


C6 ~ @ ta {=LINEST (D7:D15, C7:C15, TRUE, TRUE)} 
he B c D P| 
和 
2 
4 
5 
[B 份 | 销 省 量 | 
1 3400| 65. 61471638 
2| 4300| 0. 359291339 
3 4500| 3. 925402482 
4| 4700| 
11 5| 5200| 
12 6| 5400| 
13 了 | 5100| 
14 8| 4800| 
15 9| 4500| 


图 4-33 回归 分 析 结果 


@ 结果 中 一 行 一 列 的 值 是 4， 一 行 二 列 的 值 是 B, 三 行 一 列 的 值 是 RR。 所 以 该 
方程 式 为 7=130X+4005， 其 可 靠 程 度 仅 为 36%。 输 入 三 10， 则 可 以 预测 10 月 份 的 
销售 量 为 5305。 


4.4.3 ”销售 预测 模型 实验 


1. 实验 目的 


(1) 掌握 Excel 中 数据 透视 表 工 具 的 使 用 。 
(2) 掌握 Excel 中 的 预测 函数 的 使 用 : LINESTO。 
(G3) 运用 预测 函数 ， 建 立 企业 销售 预测 模型 。 


2. 实验 内 容 

(1) 针对 销售 数据 ， 建 立 数据 透视 表 ， 其 中 销售 网 点 和 客户 作为 行 的 数据 ， 产 
品名 称 作 为 列 的 选项 ， 对 数量 和 金额 进行 求 和 。 

(2) 依据 数据 透视 表 ， 建 立 预测 模型 ， 预 测 10 月 份 资金 占用 量 。 其 中 ,预计 10 
月 录音 机 的 销售 总 量 将 达到 64 200 台 , 采用 直线 回归 方程 : 资金 占用 量 = 不 变 资金 + 
单位 变动 资金 X 销 售 量 。 

3. 实验 案例 

某 公 司 2006 年 3~9 月 销售 数据 汇总 如 表 4-5 所 示 。 
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表 4-5 2006 年 3~9 月 销售 数据 汇总 


日 期 销售 网 点 | 产品 名 称 | 单价 数量 金额 客户 销售 员 
2006-3-1 0:00 东北 电 风扇 100 1300 130 000 | 大 连 商场 立 光 
2006-3-1 0:00 东北 电子 琴 500 000 | 大 连 商场 李 光 
2006-3-1 0:00 东北 3 800 000 | 大 连 商场 李 光 
2006-4-1 0:00 东北 160 000 | 大 连 商场 李 宏 
2006-4-1 0:00 东北 750 000 | 大 连 商场 李 宏 
2006-4-1 0:00 东北 3 880 000 | 大 连 商场 李 宏 
2006-5-1 0:00 北京 100 000 | 西单 商场 李 宏 
2006-5-1 0:00 东北 170 000 | 大 连 商场 李 军 
2006-5-1 0:00 东北 680 000 | 大 连 商场 李 军 
2006-5-1 0:00 东北 3 904 000 | 大 连 商场 李 军 
2006-5-1 0:00 湖南 119 000 | 湖南 商场 李 军 
2006-5-1 0:00 湖南 230 000 | 湖南 商场 李 军 
2006-5-1 0:00 重庆 2 400 000 | 重庆 商场 李 军 
2006-6-1 0:00 东北 250 000 | 大 连 商场 王 天 
2006-6-1 0:00 东北 650 000 | 大 连 商场 王 天 
2006-6-1 0:00 东北 3 992 000 | 大 连 商场 3 
2006-6-1 0:00 江西 700 000 | 江西 商场 李 军 
2006-6-1 0:00 江西 624 000 | 江西 商场 李 军 
2006-6-1 0:00 重庆 3 912 640 | 重庆 商场 ,3 
2006-7-1 0:00 成 都 200 000 | 人 民 商 场 张 明 
2006-7-1 0:00 东北 300 000 | 大 连 商场 张 明 
2006-7-1 0:00 东北 700 000 | 大 连 商场 张 明 
2006-7-1 0:00 东北 3 908 000 | 大 连 商场 张 明 
2006-7-1 0:00 新 疆 120 000 | 天 山 商 场 张 明 
2006-7-1 0:00 新 疆 567 000 | 天 山 商场 张 明 
2006-8-1 0:00 成 都 3 992 000 | 人 民 商 场 马 革 
2006-8-1 0:00 东北 350 000 | 大 连 商场 马 革 
2006-8-1 0:00 东北 680 000 | 大 连 商场 马 革 
2006-8-1 0:00 东北 3 920 000 | 大 连 商场 马 革 
2006-8-1 0:00 新 疆 800 000 | 天 山 商 场 马 革 
2006-9-1 0:00 东北 250 000 | 大 连 商 场 苗 新 
2006-9-1 0:00 东北 720 000 | 大 连 商场 茵 新 
2006-9-1 0:00 东北 3 936 000 | 大 连 商场 茵 新 
2006-9-1 0:00 武汉 290 000 | 武汉 商场 茵 新 
2006-9-1 0:00 武汉 500 000 | 武汉 商场 菌 新 
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该 公司 2006 年 3~9 月 销售 量 与 资金 占用 量 之 间 的 关系 如 表 4-6 所 示 。 


表 4-6 2006 年 3~9 月 销售 量 与 资金 占用 量 之 间 关 系 
资金 占用 量 Y 


2280 000 


2910 000 


2930 000 
2942 000 


2938 500 


4. 实验 步骤 


5 832 100 
3210 000 


(1) 建立 一 个 新 的 工作 秒 , 选择 Sheetl, 设计 基本 数据 录入 区 域 , 如 图 4-34 所 示 。 


250000| 


5650000| 


商场 
2400000| 重 庆 商 声 
连 商场 | 


200000| 人 民 商场 | 张 明 


300000| 


700000| 


4-34 ”基本 数据 区 域 


有 


(2) 选择 Sheet2， 选 择 “ 插 入 ”菜单 下 的 “数据 透视 表 ” 工 具 ， 并 设置 其 中 的 


相关 参数 ， 如 图 4-35 所 示 。 
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图 4-35 参数 设置 


G) 设置 完成 后 ， 在 Sheet2 中 创建 数据 透视 表 ， 按 照 要 求 ， 拖 动 字 段 到 相应 的 
区 域 ， 如 图 4-36 所 示 。 


图 4-36 ”数据 透视 表 显 示 设置 


(4) 数据 透视 表 按照 设置 好 的 字段 ， 汇 总 显示 数据 ， 如 图 4-37 所 示 。 
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全 B Re D i [3 a I I 
记 癌 名 称 _ 忆 | 雪 据 
噶 风 矶 [3 二 机 | 和 和 而: 小 重 汇 总 | 来 和 珊 : 宣 疗 江 忆 
所 二 | 末 和 项 :要 主 来 和 项: 久生 | 渎 和 项 :基本 未 和 项 :多 大 | 求 和 项 :或 语 未 和 项: 他 字 

1000” 90009| 000 00000| 

1o00 1p0c00| 1000 100000 

2000 200000| 49900 32992000| 51900| 4192000| 

2000 200000| 49900 32992000| 51900| 4192000| 

6l00 1610000| 0000| 51758 27340000 562558| 33630000 

16100 1510000) 680 doom0| 31758 21340009 e258| 533630000| 

1190 ”119000| 250 230000| 1420 849000| 

190 tecoo| ET 1420 ston| 

700 700000| 了 800 624000| 8500| 1324000| 

700 700D00| T7800 624000| 8500| 1324000| 

2900 230000| 500 500000| 3400| T90000| 

2200 290000| 500 500p09| 3a00| T90000 

1200 120000| e7507o00| 10000 ”Booo0| aaror 1487000| 

1200 120000| 5E7 567o00| 10000 sooo0| ly69 1487000 

2400 2400000| 48908 3912640| 51308| 6312640| 

2400 2400000| 48908 5912640| 51308 | 6312640| 

26790. 4839000| 5677 6677000| 458366 36668640| 431833| 481846d40| 


图 4-37 数据 透视 报 显示 结果 


(5) 选择 Sheet3， 录 入 销售 量 与 资金 占用 量 之 间 关 系数 据 ， 如 图 4-38 所 示 。 


[4| A B 
1 月 份 销售 量 X 
2 
3 
4 
5 


108900 $832100 
49200 3210000 


图 4-38” 自 变量 与 因 变量 的 关系 


(6) 设计 预测 分 析 界 面 ， 如 图 4-39 所 示 。 


单位 变动 资金 | 不 变 资金 10 月 份 预测 10 月 份 资金 占用 量 | 预测 可 靠 性 
0.00 0.00 | 64200.00 0.00 0.00 


4-39 ”预测 分 析 界 面 
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单位 变动 资金 =F2 

不 变 资金 =G2 

10 月 份 资金 占用 量 = 单位 变动 资金 x 10 月 份 销售 量 + 不 变 资 金 
预测 可 靠 性 =F4 


(8) 选择 区 域 F2:G6， 输 入 直线 回归 分 析 公 式 “LINEST(C2:C8.B2:B8.TRUE， 
TRUE)”, 同时 按 Ctral+Shift+Enter 键 实现 数组 公式 输入 , 得 到 计算 结果 ,如 图 4-40 
所 示 。 


49. 43150303| 

5. 030796868| 
0. 950761208| 
96. 54595176| 
7. 61313E+12| 3. 942' 


朗 次 量 观测 10 月 份 资 爹 占用 量 测 可 靠 性 | 
462496.12 | 64200.00 
图 4-40 预测 分 析 结果 


4.5 习 思 考题 


(1) 财务 分 析 的 数据 来 源 有 哪些 ? 

(2) 简 述 比率 分 析 与 综合 分 析 的 关系 。 

(3) 简 述 固定 资产 投资 的 特点 和 一 般 程序 。 
(4) 固定 资产 现金 流量 如 何 计 算 ? 

(5) 试 分 析 经 济 订货 批量 法 的 数学 推导 。 
(6) 简 述 规划 求解 工具 的 使 用 方法 和 步骤 。 
(7) 简 述 销售 预测 的 基本 原理 。 

(8) 简 述 LINEST 函数 的 使 用 方法 。 


2. 判断 题 


(1) 净值 报酬 率 计算 公式 中 的 股东 权益 又 等 于 公司 资产 减 掉 负债 。( 。 ) 
» 2% 


劳 4 冯 居 矢 营 理 贾 开 夸 


(2) 固定 资产 投资 中 的 年 运营 现金 净 流 量 既 可 以 是 “营业 现金 收入 - 付 现成 本 
- 所得税”， 也 可 以 是 “(营业 现金 收入 - 付 现 成 本 )X(1 - 所 得 税率 )+ 折 旧 X 所 得 税 
率 ”。( ) 

(3) 任何 投资 方案 一 定 有 自己 的 内 含 报酬 率 。(  ) 

(4) 规划 求解 将 自动 调整 目标 单元 格 的 值 ， 得 到 目标 单元 格 优化 或 者 满足 全 部 
约束 条 件 ， 最 多 可 设置 200 个 目标 单元 格 。(  ) 

(5) 采用 LINEST 函数 , 即 可 以 计算 一 元 回归 方程 ,也 可 以 计算 多 元 回归 方程 ) 


3. 单项 选择 题 
(1) 资产 管理 指标 不 包括 。 

A. 存货 周转 率 ”B. 应 收 账 款 周转 率 ”C. 流动 资产 周转 率 D. 速 动 比率 
(2) 销售 毛利 率 的 计算 公式 。 


A. 毛利 / 主 营业 务 收入 B. 税 后 利润 / 主 营 业务 收入 
C. 毛利 /其 他 业务 收入 D. 净利 润 / 其 他 业务 收入 
(3) 固定 资产 投资 的 初始 现金 流 不 包括 。 
A. 固定 资产 上 投资 B. 流动 资产 上 投资 
C. 变价 收入 D. 折旧 费用 
(4) Excel 中 净 现 值 计 算 的 函数 是 。 
A.NPV 了 B.PV C.NFV D.FV 


(5) 销售 预测 的 方法 中 采用 不 记名 方式 根据 专家 意见 作出 销售 预测 的 方 
法 


A. 时 间 序 列 分 析 法 ”B. 回归 分 析 法 ”C. 德尔 菲 法  D. 模糊 数学 法 
4. 多 项 选择 题 


(1) 财务 分 析 的 数据 来 源 主要 包括 

A. 会 计 报 表 B. 平均 数据 C. 宏观 经 济 指标 ”D. 网 络 信息 
(2) 财务 分 析 的 主要 方法 有 . 

A. 比率 分 析 法 ”B. 趋势 分 析 法 ”C. 综合 分 析 法 D. 因子 分 析 法 
(3) Excel 主要 有 数据 库 数 据 获 取 方 式 。 

A. 数据 连接 ”B. QUERY 方式 C. 直接 共享 ”D. VBA 程序 设计 方式 
(4) 固定 资产 投资 的 主要 特点 是 ___。 

A. 时 间 长 B. 资金 量 大 C. 次 数 较 多 ” D. 变现 能 力 差 
(5) 存货 经 济 订货 批量 法 的 基础 假设 是 


A. 全 年 需求 量 已 知 ”B. 日 消耗 均衡 C. 不 考虑 缺 货 ”D. 送 货 量 均衡 
“123s 


第 5 章 
Excel VBA 基 础 


S.1 VBA 基础 知识 


据 统计 ，Microsoft Excel 跟 其 他 Microsoft Office 系列 办 公 软 件 一 样 ， 通 常 被 人 
们 使 用 到 的 功能 只 占 其 全 部 功能 的 15%。 其 实 ， 当 了 解 和 掌握 了 Excel 的 一 些 高 级 功 
能 后 ， 会 发 现 Excel 的 应 用 范围 更 加 广泛 ， 许 多 专业 软件 实现 的 功能 通过 Excel 也 能 
实现 。Excel 不 仅仅 是 一 个 被 广泛 应 用 的 电子 表格 软件 ， 它 除了 具有 一 般 电 子 表格 软 
件 的 数据 处 理 、 统 计 分 析 、 图 表 功 能 外 ， 所 具备 的 最 大 特点 是 集成 了 VBA 环境 。 


5.1.1 什么 是 VBA 


从 Microsoft Office 97 版 本 开始 ， 微 软 为 所 有 的 Office 系列 软件 加 入 了 统一 
的 应 用 程序 扩展 语言 一 一 Visual Basic For Application(VBA)， 并 提供 了 VBA 的 IDE 
环境 (Integrated Development Environment， 即 应 用 程序 集成 开发 环境 )。 


5.1.2 VBA 与 VB 


VB， 即 Visual Basic， 是 微软 公司 推出 的 可 视 化 Basic 语言 ， 用 它 来 编程 非常 
简单 。 因 为 它 入 门 容易 ， 使 用 简单 ， 而 且 功 能 强大 ， 被 程序 开发 者 广泛 使 用 ， 所 以 
微软 公司 将 它 的 一 部 分 代码 结合 到 Office 中 ， 形 成 今天 所 说 的 VBA。 它 的 很 多 语 
法 继承 了 Visual Basic， 所 以 可 以 像 编 写 Visual Basic 程序 那样 来 编写 VBA 程序 ， 
以 实现 某 个 功能 。 

作为 Visual Basic 的 子 集 , VBA 具有 Visual Basic 语言 的 大 多 数 特 征 和 易 用 性 。 
针对 Excel 软件 来 说 ， 它 最 大 的 特点 就 是 将 Excel 作为 开发 平台 来 开发 应 用 程序 ， 
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同时 可 以 应 用 Excel 的 所 有 现 有 功能 ， 例 如 数据 处 理 、 图 表 绘 制 、 数 据 库 连 接 、 内 
置 函 数 等 。 所 以 ， 我 们 可 以 将 Excel + VBA 的 组 合理 解 为 以 Excel 作为 开发 平台 来 
实现 基于 表格 的 应 用 程序 。 

VBA 与 Visual Basic 的 区 别 包 括 如 下 几 个 方面 : 

(1) Visual Basic 用 于 创建 Windows 应 用 程序 ， 其 代码 最 终 被 编译 为 可 执行 程 
序 ; 而 VBA 是 用 于 使 已 有 的 应 用 程序 自动 化 ， 始 终 为 解释 执行 。 

(2) Visual Basic 具有 自己 的 开发 环境 ， 而 VBA 必须 “寄生 于 ”已 有 的 应 用 程 
序 ， 例 如 Office， 或 者 其 他 应 用 程序 。 

(3) Visual Basic 开发 出 的 应 用 程序 编译 后 可 脱离 VB 环境 执行 ， 但 执行 VBA 
应 用 程序 要 求 用 户 访问 相应 的 被 “寄生 的 ”应 用 程序 ， 例 如 Excel 下 开发 的 VBA 
程序 ， 不 仅 要 安装 Excel， 而 且 安 装 时 必须 安装 VBA 环境 才 可 以 执行 。 

(4) 使 用 VBA 开发 ， 可 以 使 用 相应 “寄生 ”应 用 程序 的 已 有 功能 ， 大 大 简化 
开发 ， 但 同时 ， 对 于 已 有 应 用 程序 不 擅长 的 任务 ， 则 较 难 实现 。 

尽管 存在 这 些 不 同 ，Visual Basic 和 VBA 在 结构 上 仍然 非常 相似 。 如 果 你 已 
经 了 解 了 Visual Basic, 会 发 现 学 习 VBA 非常 快 ,而 掌握 了 VBA 会 给 Visual Basic 
的 学 习 打 下 坚实 的 基础 。 当 学 会 在 Excel 中 用 VBA 创建 解决 方案 后 ， 你 就 已 经 具 
备 了 在 其 他 Office 应 用 程序 (例如 Word、Access 等 ) 中 用 VBA 创建 解决 方案 的 
基本 知识 。 

目前 ，VBA 的 使 用 已 经 相当 广泛 ， 这 不 仅 得 益 于 Office 的 成 功 推广 ， 从 另 一 个 
方面 讲 , Office 取得 巨大 成 功 的 一 个 重要 原因 就 是 VBA。 只 需 掌握 基本 的 编程 技能 ， 
便 能 使 用 VBA 完成 很 多 专业 程序 员 才 能 完成 的 工作 ， 这 使 得 VBA 更 容易 被 采用 ， 
目前 网 络 上 基于 Excel、Word 的 VBA 小 程序 不 计 其 数 。 当 然 另 一 个 现实 是 ，VBA 
程序 员 很 多 是 业余 程序 员 ， 正 因为 业余 , 解决 的 却 是 工作 中 需要 解决 的 问题 , 所 以 ， 
VBA 程序 大 多 都 是 只 是 在 部 门 内 部 或 个 人 使 用 的 小 工具 。 


5.2 VBA 集成 开发 环境 (IDE) 


VBA 集成 开发 环境 (IDE) 是 进行 程序 设计 和 代码 编写 的 地 方 ， 同 一 版 本 的 
Office 共享 同一 IDE。 要 使 用 VBA 进行 数据 处 理 ， 第 一 要 熟悉 VBA 的 IDE 环境 ， 
知道 在 哪里 开始 代码 的 编写 ， 如 何 编写 代码 、 设 计 窗 体 、 创 建 类 模块 (对 象 )， 第 二 
要 熟悉 VBA 的 基本 语法 。VBA 语法 不 是 一 章 就 可 以 全 部 介绍 完 的 ， 本 章 介绍 的 内 
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容 是 最 基本 和 应 该 熟练 掌握 的 内 容 ， 对 于 不 熟悉 或 者 不 理解 的 内 容 可 以 在 学 习 了 后 
面 的 内 容 后 再 反 过 头 来 学 习 。 有 些 内 容 需要 反复 练习 和 熟悉 。 对 于 VBA 语法 和 用 
法 的 很 多 内 容 可 以 随时 通过 查看 帮助 或 通过 网 上 信息 来 获得 相关 信息 。 


5.2.1 打开 VBAIDE 


VBA 代码 和 Excel 文件 是 保存 在 一 起 的 ， 可 以 通过 单 击 打开 VBA 的 IDE 环 
境 ( 如 图 5-1 所 示 )， 进 行程 序 设计 和 代码 编写 。 打 开 IDE 的 方法 还 有 以 下 几 种 。 

方式 一 : 通过 快捷 键 Alt + F11。 

方式 二 : 选择 (窗口 左上 角 )Office 按钮 ， 在 菜单 的 右 下 角 选 择 “Excel 选项 ”在 
弹出 对 话 框 中 选中 “常用 ”下 的 “在 功能 区 显示 “开发 工具 ”选项 卡 ”后 单 击 “ 确 
定 ” 按 钮 , 这 样 主 菜单 中 就 会 增加 “开发 工具 ”选项 卡 , 单 击 其 下 第 一 个 子 项 “Visual 
Basic” 进 入 。 

方式 三 ， 右 击 工 作 表 标 签 (如 “Sheet1”)， 在 菜单 中 选择 “查看 代码 ”命令 。 


1 
Private Sub VserFora_Activate O 
nd Sub 
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5-1 Visual Basic IDE 环境 
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5.2.2 VBAIDE 的 组 成 


图 5-1 为 Excel VBA 的 IDE 环境 。 对 于 同一 程序 (例如 ExceD)， 不 管 你 打开 
几 个 Excel 文件 ,启动 的 VBA IDE 环境 只 有 一 个 。 默认 情况 下 , VBA IDE 环境 上 
方 为 菜单 和 工具 条 ， 左 侧 上 方 窗口 为 工程 资源 管理 器 窗口 ， 资 源 管理 器 窗口 之 下 为 
属性 窗口 ， 右 侧 最 大 的 窗口 为 代码 窗口 。 

在 资源 管理 器 窗口 可 以 看 到 所 有 打开 和 加 载 的 Excel 文件 及 其 加 载 宏 . 每 一 个 
Excel 文件 ， 对 应 的 VBA 工程 都 有 4 类 对 象 ， 包 括 Microsoft Excel 对 象 、 窗 体 、 
模块 和 类 模块 ， 如 图 5-2 所 示 。Microsoft Excel 对 象 代表 了 Excel 文件 及 其 包括 的 
工作 敌 等 几 个 对 象 。 例 如 默认 情况 下 ，Excel 文件 包括 3 个 Sheet， 在 资源 管理 器 窗 
口 就 包括 3 个 Sheet， 并 且 使 用 相同 的 名 字 来 对 应 。 其 下 的 “ThisWorkbook ”项 代表 
当前 Excel 文件 。 双 击 这 些 对 象 会 打开 代码 窗口 (图 5-1 右 侧 窗 口 )， 在 此 窗口 中 可 
输入 相关 的 代码 来 响应 工作 短 或 者 文件 的 一 些 事件 ， 例 如 文件 的 打开 、 关 闭 ， 工 作 
簿 的 激活 、 内 容 修 改 、 选 择 等 (有 关 事 件 、Excel 对 象 模 型 见 本 章 之 后 的 内 容 )。 窗 体 
对 象 代表 了 自 定义 对 话 框 或 界面 ， 模 块 为 自 定义 代码 的 载体 ， 类 模块 则 是 以 类 或 对 
象 的 方式 编写 代码 的 载体 ， 关 于 各 对 象 的 具体 含义 和 使 用 见 后 。 在 工程 资源 管理 器 
窗口 的 右键 菜单 下 ， 有 添加 用 户 窗 体 、 模 块 、 类 模块 的 选项 ， 也 可 以 将 已 有 的 模块 
移 除 、 导 入 和 导出 。 在 工程 资源 管理 器 之 下 ， 也 可 以 通过 将 一 个 工程 中 的 模块 用 鼠 
标 拖 搜 到 另 一 个 工程 实现 模块 在 工程 之 间 的 复制 。 


[RIVYBAProject (Bookl) 
日 - 食 有 icrosoft Excel 对 象 
| heetl (Sheet1) 

heet2 (Sheet2) 
~… 因 | Sheet3 (Sheet3) 


ThisWorkbook 
日 * 贸 窗 体 
… 国 UserForml 
晶 ` 各 模块 
…$ 模块 1 
日 -各 类 模块 
兢 类 ! 


5-2 ”VBA 工程 资源 管理 器 窗口 
在 VBA 工程 资源 管理 器 之 下 是 属性 窗口 ， 如 图 5-3 所 示 ， 主 要 用 于 对 象 属性 


*。128。 


锣 了 5 盆 Excel VB4 类 砂 必 


的 交互 式 设计 和 定义 ， 例 如 选中 图 5-2 中 的 VBAProject， 在 属性 窗口 即 可 更 改 其 
名 称 。 属 性 窗口 除了 更 改 工程 、 各 对 象 、 模 块 的 基本 属性 外 ， 主 要 用 途 是 用 户 窗 
体 ( 自 定义 对 话 框 ) 的 交互 式 设计 。 图 5-3 显示 的 就 是 一 个 打开 的 窗 体 (UserForm) 的 


属性 窗口 。 


VserForml UserForm 


按 字母 序 | 按 分 类 序 | 


VserForml 

口 sks000000F& 

国 sH50000012& 

0 - fmBorderStylell 
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0 - fmCycleAllForm 
32000 
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宋 
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KeepScrollBarsVisib]3 - fmScrollBarsBo 
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MousePointer 
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PictureSizeNMode 
PictureTiline 
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0 

(None) 

0 - fmMouseFPointer. 
QWone) 

2 - fmPictureAlien 
0 - fmPictureSizel 
False 

False 


5-3 VBA 属性 窗口 


在 IDE 窗口 的 右 侧 ， 可 以 打开 代码 窗口 。 在 资源 管理 器 窗口 中 的 每 一 个 对 象 
会 对 应 一 个 代码 窗口 (用 户 窗 体 包 括 一 个 设计 窗口 和 一 个 代码 窗口 )。 可 以 通过 在 对 
象 上 双击 、 在 右键 菜单 或 资源 管理 器 工具 栏 上 选择 查看 代码 (或 对 象 ) 打 开 代码 窗口 。 


对 于 IDE 环境 、 菜 单 、 


说 明 。 


单 击 “ 视 图 ”下 的 “对 象 浏览 器 ”或 工具 栏 上 的 “对 象 浏览 器 ”按钮 党， 


工具 栏 的 具体 使 用 和 说 明 ， 在 后 面 的 讲解 中 会 逐步 讲解 


即 可 


打开 对 和 象 浏览 器 窗口 ， 如 图 5-4 所 示 ， 在 此 窗口 内 可 查看 当前 工程 及 其 引用 对 象 的 
属性 、 方 法 和 事件 。 对 象 浏览 器 对 于 熟悉 和 查看 相应 的 Excel 对 象 、 引 用 对 象 (包括 
COM 对 象 、 其 他 Excel 程序 ) 所 包含 的 类 、 属 性 、 方 法 和 事件 非常 有 用 ， 特 别 是 在 
没有 相应 的 帮助 资料 或 者 文档 的 情况 下 ， 对 象 浏览 器 是 查看 一 个 对 象 的 内 容 的 最 有 


效 工 具 。 
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罗 ActiveChart 
图 ActivePrinter 
[ES ActiveSheet 
图 ActiveWindow 
图 ActiveWorkbook 
罗 AddIns 

8 AppActivate 
I Application 


Property ActiveCell As Range 
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图 5-4 VBAIDE 环境 的 对 象 浏览 器 


5.2.3 在 VBAIDE 下 进行 开发 


熟悉 了 VBA 的 IDE 环境 后 ， 下 面 来 开发 VBA 之 旅 的 第 一 个 程序 。 新 建 一 个 
Excel 文件 ， 通 过 菜单 或 键盘 快捷 键 打开 VBA 集成 开发 环境 ， 在 VBA Project 上 右 
击 ， 在 菜单 中 选择 “插入 ”下 的 “模块 >。 这 样 ， 系 统 将 打开 一 个 代码 窗口 ， 在 窗口 
中 输入 以 下 代码 。 


Sub MyFirstVBAProgram() 
Dim strName As String 
Dim strHello Rs String 
strName = InputBox (" 请 输入 你 的 名 字 : ") 
strHello = "你 好 , " & strName & "!" 
MsgBox strHello 

End Sub 


om nr 


将 鼠标 光标 放置 在 这 段 代码 内 , 单 击 “ 运 行 ”菜单 下 的 “运行 子 过 程 /用 户 窗 体 ” 
命令 ,或 者 在 工具 栏 单 击 “ 运 行 ” 按 钮 ， 则 可 运行 这 段 代码 。 运 行 结果 会 显示 一 个 
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对 话 框 ， 输 入 一 些 内 容 后 ， 会 显示 相应 的 问候 语 。 同 样 ， 这 段 代码 可 以 和 宏一 样 ， 
在 Excel 下 选择 并 执行 。 

下 面 简单 看 一 下 这 段 代码 的 组 成 : 代码 第 1 行 表 示 这 是 一 个 新 的 过 程 ， 名 称 为 
MyFirstVBAProgram; 第 2、3 行 定义 了 2 个 变量 ， 其 类 型 为 字符 串 类 型 ; 第 4 行 调 
用 InputBox 内 置 函数 ， 并 将 返回 值 赋 给 stName 变量 ; 第 5 行将 几 个 字符 串 组 合成 

-个 新 的 字符 串 ; 第 6 行 调 用 MsgBox 函数 ， 显 示 一 个 对 话 框 ; 第 7 行 表示 过 程 结 
束 。VBA 程序 由 不 同 的 模块 组 成 , 在 模块 内 部 , 可 以 定义 不 同 的 变量 、 过 程 或 函数 ， 
由 此 组 成 一 个 完整 的 程序 。 

在 此 模块 内 ， 再 新 建 一 段 代码 : 


1 Function MyAdd (varA, varB) As Variant 
加 MyAdd = varR + varB 
3 End Function 


此 段 代码 非常 简单 ,只 有 3 行 。 第 1 行 表示 这 是 一 个 函数 , 具有 2 个 参数 一 一 varA， 
和 varB， 函 数 与 过 程 的 差别 在 于 函数 有 返回 值 。 第 2 行将 参数 varA 和 varB 的 和 赋 给 函 
数 ， 代 表 其 返回 值 。 函 数 无 法 直接 运行 ， 必 须 从 工作 表 或 者 其 他 程序 调用 。 例 如 ， 可 以 
通过 下 面 一 段 简单 的 程序 调用 此 函数 : 


Sub Testadd () 
Dima, b, c 
a= 12 
b= 34 
c= MyAdd(a, b) 
MsgBox c 

End Sub 


wouwmwhNb PP 


其 中 第 5 行为 函数 MyAdd 的 调用 ， 函 数 将 返回 值 赋 给 c。 需 要 说 明 的 是 ， 在 
VBA 中 ， 调 用 过 程 可 以 使 用 Call 语句 ， 也 可 以 省 略 。 调 用 过 程 时 ， 其 参数 的 括号 
可 以 省 略 ， 但 调用 函数 必须 有 括号 。 

也 可 以 直接 在 工作 表 内 使 用 自 定义 的 函数 。 例 如 在 工作 表 中 ,可 以 和 Excel 内 
置 函 数 一 样 使 用 自 定义 的 函数 。 如 图 5-5 所 示 ，Excel 会 负责 参数 传递 ， 将 返回 值 
赋 给 相应 的 单元 格 ， 在 引用 参数 改变 时 会 自动 重新 计算 。 总 之 ， 与 内 置 函 数 的 使 用 
没有 什么 不 同 。 
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1024 76 1100 
2 | 
3 | 


5-5 在 工作 表 中 使 用 自 定义 函数 


以 上 通过 两 个 例子 简单 介绍 了 VBA 编程 的 过 程 和 概念 , 后 面 将 对 VBA 编程 作 
进一步 讲解 ， 逐 步 介绍 VBA 对 象 、 属 性 、 方 法 和 事件 ， 以 及 基本 语法 等 内 容 。 


5.3 VBA 对 象 、 属 性 、 方 法 和 事件 


VBA 作为 和 VB 类 似 的 面向 对 象 的 开发 工具 ， 其 最 重要 的 基础 概念 有 对 象 、 属 
性 、 方 法 和 事件 。 


5.3.1 什么 是 对 象 、 属 性 、 方 法 


为 了 说 明 这 几 个 概念 ， 我 们 通过 下 面 这 个 例子 来 讲解 。 

假设 你 正在 踢 足 球 ， 可 以 用 “Kick the Ball” 这 句 话 来 表达 。 

这 是 通常 说 话 的 方式 ， 它 语义 明确 ， 包 含 了 动词 “Kick” 和 名 词 “the ball”。 
那么 在 VBA 中， 如果 使 用 代码 来 发 出 踢 球 指令 ， 就 应 该 变 成 下 面 这 种 计算 机 语言 : 

Ball.Kick() 

这 种 命令 方式 同样 包含 了 名 词 “Ball”， 只 是 它 的 位 置 放 在 了 前 面 ,在 VBA 中 
它 就 是 “对 象 ”。 动词 “Kick0”， 它 通过 小 数 点 符号 “.” 连 接 在 名 词 之 后 , 在 VBA 
中 它 就 是 “方法 ”。 所 有 VBA 中 的 方法 都 有 一 对 括号 “( )” 跟 随 。 括 号 内 可 以 指 
定 副词 ， 也 可 以 不 指定 ， 在 VBA 中 这 些 副词 就 称 之 为 “参数 ”。 例 如 : 


(1) Ball.Kick() 踢 球 ， 随 意 踢 
(2) Ball.Kick(" 左 ") 向 左 踢 球 
(3) Bal1.Kick(" 左 "，" 弧 线 ") 向 左 跑 弧 线 球 


参数 可 以 是 一 条 或 多 条 ， 如 果 是 多 条 参数 ， 需 用 逗号 “,” 分 隔 开 。 需 要 注意 的 
是 ， 不 管 是 否 指定 参数 ， 方 法 后 面 的 一 对 括号 “() ”必须 打 上 。 
综 上 所 述 ，VBA 中 执行 指令 最 基本 的 结构 就 是 : 


object.Method (parml, {parm2,..}) 。 即 : 对 象 .方法 (参数 1，{ 参 数 2，..)) 
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对 于 任何 对 象 ， 在 VBA 中 ， 都 可 以 由 多 个 同类 对 象 组 成 一 个 对 象 集合 。 例 如 
在 VBA 中 ， 你 可 以 操作 一 行 ， 也 可 以 操作 很 多 行 ， 可 以 读 取 一 个 单元 格 的 值 ， 也 
可 以 读 取 多 个 单元 格 的 值 ， 工 作 表 和 工作 短 也 是 一 样 。 对 象 和 对 象 集合 在 程序 代码 
中 唯一 的 区 别 就 是 需要 在 对 象 名 称 后 面 添加 一 个 “s”, 可 以 理解 为 名 词 的 复数 形式 : 

e@ Row 对 象 的 集合 为 Rows 

e Cell 对 象 的 集合 为 Cells 

e Ball 对 象 的 集合 为 Balls 

而 当 要 操作 一 个 对 象 集合 中 的 某 个 具体 对 象 时 , 就 需要 告诉 程序 设计 语言 所 指 的 
具体 是 哪个 单项 , 有 多 种 方法 可 以 达到 这 个 目的 , 例如 可 以 使 用 数字 来 指明 某 个 单项 : 


Balls(2) .Kick() 


这 种 方式 告诉 程序 需要 中 的 是 第 2 个 球 ， 但 也 有 限制 ， 你 通过 数字 指定 的 球 的 
序号 不 能 大 于 已 有 球 的 个 数 ， 否 则 就 会 产生 程序 错误 。 这 种 方式 还 存在 一 个 弊端 ， 
如 果 球 的 顺序 一 旦 发 生变 化 ， 那 么 就 不 一 定 能 够 准确 找到 想 要 的 那个 球 。 所 以 还 提 
供 了 另 一 种 定位 的 方法 : 

Balls ("Panda") .Kick() 

这 种 方式 明确 指明 了 对 和 象 的 名 称 ， 告 诉 程序 需要 踢 的 是 名 为 Panda 的 那个 球 ， 
这 样 ， 不 管 这 个 球 如 何 调整 顺序 ， 始 终 能 准确 找到 。 

介绍 了 名 词 、 动 词 、 副 词 ， 以 及 名 词 复数 的 概念 后 ， 再 来 看 一 下 VBA 中 的 形 
容 词 ， 也 就 是 VBA 中 “属性 ”的 概念 : 


(1) Ball.Color = red 指定 球 的 颜色 为 红色 
(2) Cell.Width = 200 指定 某 单 元 格 的 宽度 为 200 
(3) Row.Height = 28 指定 某 行 的 高 度 为 28 


属性 负责 控制 对 象 所 呈现 的 外 观 。 
表 5-1 总 结 了 VBA 中 的 基础 语意 : 


表 5-1 VBA 的 基础 语意 


VBA 用 词 语法 称谓 说 了 明 


对 象 

合 指定 集合 中 具体 对 象 : Cells(1) 
方法 Object.MethodO 
参数 列 出 方法 内 的 参数 ， 用 逗号 隔 开 
属性 对 象 呈现 的 外 观 控制 
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5.3.2 VBA 中 的 事件 


事件 是 Excel 根据 工作 敌 所 发 生 的 特定 动作 来 执行 代码 的 方式 。 例如 , 移动 鼠 
标 、 单 击 窗 体 和 按钮 、 敲 击 键 盘 、 窗 体 的 显示 移动 等 都 会 产生 一 系列 的 事件 。 通 过 
在 对 应 的 事件 下 编写 代码 来 响应 事件 ， 当 触发 某 个 事件 时 ， 就 会 执行 这 些 代码 。 例 
如 ， 将 一 段 改变 文本 颜色 的 代码 写 在 了 一 个 按钮 的 单 击 事件 下 ， 当 单 击 此 按钮 时 就 
触发 了 这 个 单 击 事件 ， 同 时 文本 颜色 将 被 改变 。 

窗 体 、 窗 体 上 的 控件 都 定义 了 很 多 事件 ， 例 如 鼠标 移动 、 单 击 等 事件 。 自 定义 
的 类 模块 也 可 以 有 自 定义 的 事件 (参见 本 章 “类 模块 ”一 节 )。 

用 户 窗 体 编程 时 ， 编 写 一 个 事件 的 响应 代码 有 两 种 方式 ， 对 于 默认 事件 ， 双 击 
这 个 控件 ， 就 会 自动 打开 代码 编辑 器 ， 新 建 或 定位 到 这 个 事件 。 或 者 ， 可 以 在 代码 
编辑 器 上 方 左 侧 的 “对 象 框 ”选择 对 象 ， 然 后 在 其 右 侧 的 “过 程 /事件 框 ”选择 响应 
的 事件 ， 即 可 定位 或 创建 这 个 事件 ， 如 图 5-6 所 示 。 


[serForn 了 ] Metivate 


Private Sub UserForm_ActivateO 
End Sub 


图 5-6 在 代码 编辑 器 中 选择 事件 


5.4 模块 、 函 数 和 过 程 


在 VBA 中 编写 的 任何 程序 ， 都 存放 于 模块 、 函 数 或 者 过 程 中 ， 即 模块 、 函 数 
和 过 程 是 VBA 程序 设计 的 总 体 框架 。 


5.4.1 模块 


模块 是 保存 自 定义 的 过 程 、 函 数 的 地 方 ， 也 是 保存 录制 的 宏 的 场所 。 有 两 种 基 
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本 类 型 的 模块 一 一 类 模块 和 标准 模块 ， 本 节 介 绍 标准 模块 ， 类 模块 将 专门 介绍 。 模 
块 可 以 通过 右 击 工程 资源 管理 器 的 工程 名 ， 选 择 “ 插 入 一 模块 ”来 新 建 ， 新 建 的 
模块 默认 的 名 称 为 “模块 1” “模块 2”， 建 议 在 属性 窗口 内 更 改 为 有 意义 的 名 称 。 

模块 有 2 个 任务 : 

(1) 保存 过 程 和 函数 。 

(2) 定义 模块 内 的 私有 变量 或 整个 工程 的 公有 变量 。 

在 模块 中 可 以 声明 变量 (包括 对 象 )， 定 义 过 程 和 函数 。 过 程 和 函数 的 定义 见 下 
文 ， 变 量 的 声明 如 下 。 


| Dim i as Long 


2 Dim strName as String 


Dim 表示 声明 ，i 和 strName 为 变量 名 称 ，As 之 后 的 Long 表示 数据 类 型 ( 参 
见 数据 类 型 一 节 )。 变 量 的 声明 还 可 以 通过 以 下 两 种 方式 定义 : 


1 Private i as Long 


之 Public strName as String 


Private 表示 此 变量 是 私有 的 ， 只 有 在 此 模块 内 部 的 函数 、 过 程 才 可 以 访问 ; 而 
Public 则 表示 此 变量 为 公用 的 , 可 以 在 其 他 模块 中 访问 使 用 。 应 用 Dim 声明 的 变量 
也 是 私有 变量 。 


国教 学 提示 图 
一 般 来 说 ， 除 非 必要 ， 要 尽量 少 使 用 公用 变量 。 


5.4.2 过程 


过 程 是 最 基本 的 运行 单位 。 一 个 完整 的 过 程 其 一 般 格式 如 下 : 


由 Sub Test 1() 
2 过 
3 End Sub 


在 以 上 程序 中 , Sub 代表 过 程 种 类 , 表示 运行 指定 的 操作 , 但 不 返回 运行 结果 ; 
Test 表示 过 程 名 称 ， 最 后 以 End Sub 结束 。 
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正式 的 过 程 描述 如 下 : 

b [Private | Public] [Static] Sub name [(arglist)] 
之 [statements] 

3 [Exit Sub] 

4 [statements] 

5 End Sub 


过 程 的 组 成 和 含义 如 表 5-2 所 示 。 


表 5-2_ 过 程 的 组 成 部 分 及 其 含义 


部 分 描述 

Public 可 选 的 。 表 示 所 有 模块 的 所 有 其 他 过 程 都 可 访问 这 个 Sub 过 程 

Private 可 选 的 。 表 示 只 有 在 包含 其 声明 的 模块 中 的 其 他 过 程 可 以 访问 该 Sub 过 程 

Static 可 选 的 。 表 示 在 调用 之 间 保 留 Sub 过 程 的 局 部 变量 的 值 。Static 属性 对 在 Sub 
外 声明 的 变量 不 会 产生 影响 ， 即 使 过 程 中 也 使 用 了 这 些 变量 

name 必需 的 。Sub 的 名 称 ， 遵 循 标准 的 变量 命名 约定 

arglist 可 选 的 。 代 表 在 调用 时 要 传递 给 Sub 过 程 的 参数 的 变量 列表 。 多 个 变量 则 用 
逗号 隔 开 

statements 可 选 的 。Sub 过 程 中 所 执行 的 任何 语句 组 


其 中 ，arglist 参数 的 语法 以 及 语法 各 个 部 分 如 下 ， 描 述 如 表 5-3 所 示 。 


[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [Rs type][= 
defaultvalue] 
表 5-3_ 过 程 参 数 的 语法 及 其 含义 

部 分 描述 

Optional 可 选 的 。 表 示 参 数 不 是 必需 的 关键 字 。 如 果 使 用 了 该 选项 ， 则 arglist 中 
的 后 续 参数 都 必须 是 可 选 的 ， 而 且 必须 都 使 用 Optional 关键 字 声 明 。 如 
果 使 用 了 ParamArray， 则 任何 参数 都 不 能 使 用 Optional 

ByVal 可 选 的 。 表 示 该 参数 按 值 传递 

ByRef 可 选 的 。 表 示 该 参数 按 地 址 传递 。ByRef 是 Visual Basic 的 默认 选项 

ParamArray 可 选 的 只 用 于 arglist 的 最 后 一 个 参数 ,指明 最 后 这 个 参数 是 一 个 Variant 


元 素 的 Optional 数组 。 使 用 ParamArray 关键 字 可 以 提供 任意 数目 的 参数 。 
ParamArray 关键 字 不 能 与 ByVal，ByRef 或 Optional 一 起 使 用 
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( 续 表 ) 


部 分 描述 


varname 必需 的 。 代 表 参 数 变量 的 名 称 ， 遵 循 标准 的 变量 命名 约定 


type 可 选 的 。 传 递 给 该 过 程 的 参数 的 数据 类 型 ， 参 照 数据 类 型 一 节 


defaultvalue 可 选 的 。 任 何 常数 或 常数 表达 式 。 只 对 Optional 参数 合法 。 如 果 类 型 为 
Object， 则 显 式 的 默认 值 只 能 是 Nothing 


其 中 ， 按 值 传递 参数 是 一 种 将 参数 值 而 不 是 将 地 址 传递 给 过 程 的 方式 ， 这 就 使 
过 程 访问 到 变量 的 复 本 。 结 果 ， 过 程 不 可 改变 变量 真正 的 值 。 按 地 址 传递 参数 是 一 
种 将 参数 地 址 而 不 是 将 值 传递 给 过 程 的 方式 , 这 就 使 过 程 访问 到 实际 的 变量 。 结果 ， 
过 程 可 改变 变量 真正 的 值 。VBA 默认 按 地 址 传递 参数 。 

例如 以 下 程序 ,11 行 的 过 程 ByValTest 的 参数 var 是 按 值 传递 , 因此 不 会 改变 
参数 的 值 (5 行 的 调用 ), 而 15 行 的 过 程 ByRefTest 的 参数 var 是 按 引 用 (地 址 ) 传 递 ， 
因此 会 改变 参数 的 值 (6 行 的 调用 )。 


了 Sub ParameterTest () 

2 Dim varl As Long, var2 As Long 
3 varl = 12 

4 var2 = 12 

本 ByValTest varl 

6 ByRefTest var2 

| MsgBox "还 是 12: " & varl 

8 MsgBox "不 是 12: " & var2 

9 End Sub 

10 

计生 Sub ByValTest (ByVal var As Long) 
12 Var = Var * 2 

13 End Sub 

14 

15 Sub ByRefTest (var As Long) 

16 var = Var * 2 

3 End Sub 


不 过 和 变量 不 同 ， 如果 没有 使 用 Public、Private 显 式 指定 ，Sub 过 程 按 默 认 情 
况 就 是 公用 的 (Public)， 因 此 一 定 要 注意 把 不 打算 公开 的 过 程 定义 为 私有 的 。 
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所 有 的 可 执行 代码 都 必须 属于 某 个 过 程 。 不 能 在 过 程 中 定义 Sub 过 程 。 

Exit Sub 语句 使 执行 立即 从 一 个 Sub 过 程 中 退出 。 程 序 接着 从 调用 该 Sub 过 
程 的 语句 的 下 一 条 语句 执行 。 在 Sub 过 程 的 任何 位 置 都 可 以 有 Exit Sub 语句 。 

在 Sub 过 程 中 使 用 的 变量 分 为 两 类 : 一 类 是 在 过 程 内 显 式 定义 的 ， 另 一 类 则 
不 是 。 在 过 程 内 显 式 定义 的 变量 (使 用 Dim 方法 ) 都 是 局 部 变量 (参见 数据 类 型 一 节 )。 

过 程 (包括 函数 等 ) 的 创建 可 以 通过 在 代码 窗口 直接 键入 “Sub...” 来 创建 ， 也 可 
以 使 用 “插入 ”菜单 下 的 “过 程 ” 命 令 来 创建 。 


5.4.3 函数 
函数 是 具有 返回 值 的 过 程 ， 其 正式 描述 如 下 : 


[Public | Private] [Static] Function name [(arglist)] [Rs type] 
[statements] 


[name = expression] 


1 

了 | 

3 

四 [Exit Function] 
5 [statements] 

6 [name = expression] 
7 


End Function 


各 部 分 含义 同 Sub 过 程 相同 ， 此 处 不 再 重复 。 需 要 说 明 的 是 ， 函 数 要 返回 一 个 
值 ， 其 类 型 通过 As Type 来 定义 。 要 从 函数 返回 一 个 值 ， 只 需 将 该 值 赋 给 函数 名 。 
在 过 程 的 任意 位 置 都 可 以 出 现 这 种 赋值 。 如 果 没 有 对 name 赋值 ， 则 过 程 将 返回 一 
个 默认 值 : 数值 函数 返回 0， 字符 串 函数 返回 一 个 零 长 度 字符 串 〈"")，Variant 函数 
则 返回 Empty。 如 果 在 返回 对 象 引用 的 Function 过 程 中 没有 将 对 象 引用 赋 给 
name( 通 过 Set)， 则 函数 返回 Nothing。 

VBA 中 有 大 量 内 惫 函数 ， 例 如 前 边 例子 里 使 用 过 的 MsgBox，InputBox。VBA 
的 函数 主要 包括 数学 函数 (包括 三 角 函 数 、 随 机 数 等 )、 字 符 串 函 数 等 , 熟悉 VBA 的 
内 置 函 数 可 以 提高 工作 效率 ， 更 好 地 完成 工作 。 对 于 VBA 的 函数 ， 可 以 参考 其 帮 
助 文档 。 


5.4.4 ”调用 过 程 和 函数 


从 其 他 过 程 调用 一 个 过 程 时 ， 必 须 键 入 过 程 名 称 以 及 任何 需要 的 参数 值 。Call 
语句 可 有 可 无 ， 如 果 使 用 它 ， 则 参数 必须 以 括号 括 起 来 。 
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可 以 使 用 Sub 过 程 去 组 织 其 他 的 过 程 。 在 下 面 的 示例 中 , 过 程 Main 传递 参数 


值 56 去 调 月 


Main 调用 过 


日 过 程 MultiBeep( 第 2 行 )。 运 行 MultiBeep 后 ， 控 件 返回 Main， 然 后 
程 Message( 第 3 行 )。Message 显示 一 个 信息 框 ， 当 按 “ 确 定 ” 按 钮 时 ， 


控件 会 返回 Main， 接 着 Main 退出 执行 。 


oo drowDpr 


FF PP 
w hb po 


14 


Sub Main() 
MultiBeep 56 
Message 


End Sub 


Sub MultiBeep (numbeeps) 
For counter = 1 To numbeeps 
Beep 
Next counter 


End Sub 


Sub Message () 
MsgBox "Time to take a break!" 


End Sub 


下 面 的 示例 展示 了 调用 具有 多 个 参数 的 Sub 过 程 的 两 种 不 同方 法 。 当 第 二 次 调 
用 HouseCalc 时 ， 因 为 使 用 Call 语句 (第 3 行 )， 所 以 需要 利用 括号 将 参数 括 起 来 。 


二 
p 
| 
4 
5 
6 
7 
8 
9 


10 
1 


Sub Main() 

HouseCalc 99800, 43100 

Call HouseCalc(380950, 49500) 
End Sub 


Sub HouseCalc (price As Single, wage As Single) 
If 2.5 * Wage <= 0.8 * price Then 
MsgBox "You cannot afford this house." 

Else 
MsgBox "This house is affordable." 

End Sub 


在 调用 函数 时 ， 为 了 使 用 函数 的 返回 值 ， 必 须 指定 函数 给 变量 ， 并 且 用 括号 将 
参数 封闭 起 来 ， 如 下 所 示 : 
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| Answer3 = MsgBox ("RAre You happy?", 4, "Question 3") 


如 果 不 在 意 函 数 的 返回 值 ， 可 以 用 调用 Sub 过 程 的 方式 来 调用 函数 。 示 例如 
下 ， 可 以 省 略 括号 ， 列 出 参数 并 且 不 要 将 函数 指定 给 变量 : 


| MsgBox "Task Completed!", 0， "Task Box" 


但 如 果 在 上 述 例 子 中 包含 括号 ， 则 会 导致 一 个 语法 错误 。 


5.4.5 ”应 用 案例 


自动 生成 大 写 金 额 的 程序 


案例 目标 在 工作 表 中 选中 数字 金额 所 在 单元 格 , 通过 调用 VBA 过 程 生成 对 应 的 大 写 
金额 
1. 学 习 过 程 的 创建 和 使 用 
学 习 要 点 2. 学 习 Excel 中 调用 内 置 函数 的 方法 
3. 学 习 Excel 中 对 单元 格 数据 提取 和 赋值 的 方法 
步骤 ， 
(1) 进入 VBA 编程 环境 ， 在 工程 资源 管理 器 窗口 右 击 VBAProject 选项 ， 在 弹 
出 菜单 中 选择 “插入 ”|“ 模 块 ” 命 令 。 
(2) 在 模块 1 的 代码 窗口 输入 以 下 代码 。 


Sub 大 写 金额 () 
"设置 单元 格 的 数字 显示 格式 


Selection.NumberFormatLocal = "0.00_" 


1 
2 
3 
4 
5 "复制 选中 单元 格 内 容 至 旁边 的 单元 格 
6 Selection.Copy 

了 Selection.Offset(0,1) .Select 

8 RctiVveSheet.Paste 

9 

10 "设置 复制 单元 格 的 数字 显示 格式 

3 Selection.NumberFormatLocal = "[DBNum2] [$-804]G/ 通 用 格式 " 
过 End Sub 
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(3) 保存 代码 返回 Excel 工作 表 , 在 任意 单元 格 输入 数字 , 然后 选择 “开发 工具 ” 
菜单 下 的 “ 宏 ” 命 令 ， 执 行 该 程序 ， 其 运行 结果 如 图 5-7 所 示 。 


ch cm rocoto 一 
数字 金额 


大 瑟 金 额 
6831. 00 陆 件 手 佰 估 拾 喜 
125. 65 喜 佰 起 拾 伍 . 陆 伍 


融 国 | 
2 
3 | 
生 
5 
6 
7 
8 
9 
10 


图 5-7 自动 生成 大 写 金额 


5.5 Excel VBA 基础 语法 


VBA 的 语法 规则 与 大 多 数 面 向 对 象 的 开发 工具 相似 , 主要 包括 命名 规则 、 变 量 
及 作用 范围 、 条 件 语句 、 循 环 语句 以 及 其 他 常见 的 语法 元 素 等 。 


5.5.1 Visual Basic 的 命名 规则 


当 在 Visual Basic 的 模块 中 为 过 程 、 常 数 、 变 量 以 及 参数 命名 时 ， 需 遵循 下 列 
规则 : 

(1) 第 一 个 字符 必须 使 用 英文 字母 。 

(2) 不 能 在 名 称 中 使 用 空格 、 句 点 ()、 惊 叹 号 (0) 或 @、&、$、# 等 字符 。 

(3) 名 称 的 长 度 不 可 以 超过 255 个 字符 。 

(4) 通常 ， 使 用 的 名 称 不 能 与 Visual Basic 本 身 的 函数 过 程 、 语 句 以 及 方法 的 
名 称 相同 ， 若 所 使 用 的 内 在 语言 函数 、 语 句 或 方法 与 所 指定 的 名 称 相 冲 突 ， 则 必须 
显 式 地 识别 它 。 通 常会 在 内 建 函 数 、 语 句 或 方法 的 名 称 之 前 加 上 关联 的 类 型 库 的 名 
称 。 例 如 ， 如 果 有 一 个 名 为 Left 的 变量 ， 则 只 能 用 VBA.Left 来 调用 Left 函数 。 

(5) 不 能 在 同一 层次 中 使 用 重复 的 名 称 。 例 如 ， 不 能 在 同一 过 程 中 声明 两 个 命 
名 为 age 的 变量 。 然 而 ， 可 以 在 同一 模块 中 声明 一 个 私有 的 命名 为 age 的 变量 和 一 
个 过 程 级 别 的 命名 为 age 的 变量 。 

(6) Visual Basic 不 区 分 大 小 写 ， 但 它 会 在 名 称 被 声明 的 语句 处 保留 大 写 。 


*141。 


全 财务 管理 数据 处 理 技术 一 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


5.5.2 ”变量 及 其 作用 范围 

变量 是 用 于 临时 保存 数值 的 地 方 。 每 次 程序 运行 时 , 变量 可 能 包含 不 同 的 数值 ， 
而 且 变量 的 数值 可 以 改变 。 

1. 变量 的 数据 类 型 

使 用 变量 的 第 一 步 是 了 解 变量 的 数据 类 型 。 变 量 的 数据 类 型 控制 变量 允许 保存 


何 种 类 型 的 数据 。 表 5-4 列 出 了 Visual Basic 支持 的 数据 类 型 ， 还 列 出 了 各 种 类 型 的 
变量 所 需要 的 存储 空间 和 能 够 存储 的 数值 范围 。 


表 5-4 Visual Basic 数据 类 型 


数据 类 型 存储 空间 数值 范围 
Byte 1 字 节 0 一 255 
Booleam 2 字 节 True 或 者 False 
Integer 2 字 节 -32768 一 32767 
Long( 长 整 型 ) 4 字 节 -2147483648 一 2147483647 
负 值 范围 : 
-3.402823E38 一 -1.401298E-45 
Single 4 字 节 
正 值 范围 : 
1.401298E-45 一 3.402823E38 
负 值 范围 : 
-1.79769313486232E308 一 -4.94065645841247E-324 
Double 8 字 节 
正 值 范围 : 
4.94065645841247E-324 一 1.79769313486232E308 
Currenc. 8 字 节 -922337203685477 一 922337203685477 
不 包括 小 数 时 : 
+/-79228162514264337593543950335 
Decimal 14 字 节 
包括 小 数 时 : 
+7.9228162514264337593543950335 
Date 8 字 节 1000 年 1 月 1 日 ~9999 年 12 月 31 日 
Object 4 字 节 任何 引用 对 象 
String( 长 字符 串 ) | 10 字 节 +1 字 节 /字符 | 0 一 2X101 
String( 固 定 长 度 ) | 字符 串 的 长 度 1 一 65400 
Varient( 数 字 ) 16 字 节 Double 数值 范围 内 的 任何 数值 
Varient( 文 本 ) 22 字 节 +1 字 节 /字符 | 数值 范围 和 变 长 字符 串 相同 
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在 选用 数据 类 型 时 ， 一 个 目标 是 选择 存储 空间 尽量 小 的 数据 类 型 来 保存 所 需要 
的 数据 ， 这 正 是 表 5-4 提供 各 种 数据 类 型 存储 空间 的 原因 。 例 如 ， 要 保存 诸如 班级 
学 生 总 数 这 样 的 数字 ， 那 么 Byte 数据 类 型 就 足够 了 。 在 这 种 情况 下 ， 使 用 Single 
数据 类 型 只 是 对 计算 机 存储 空间 的 浪费 。 

2. 用 Dim 语句 声明 变量 


创建 变量 可 以 使 用 Dim 语句， 声明 变量 的 Dim 语句 的 语法 如 下 : 


Dim 变量 名 AS 数据 类 型 


这 条 语法 中 的 变量 名 代表 将 要 创建 的 变量 名 。 对 变量 的 命名 规则 和 对 过 程 的 命 
名 规则 相同 。 这 条 语句 中 的 数据 类 型 部 分 可 以 是 表 5-4 中 的 任何 一 种 数据 类 型 。 

接 下 来 的 练习 中 将 说 明 如 何在 VBA 中 使 用 变量 一 一 输入 你 的 名 字 ， 并 用 一 个 
消息 框 将 其 显示 出 来 。 具 体 步 又 如 下 : 

(1) 创建 一 个 名 为 ShowName 的 子 程 序 。 

(2) 输入 以 下 代码 。 


Public Sub ShowName () 
Dim MyName As String 
MyName = Inputbox ("请 输入 你 的 名 字 :") 
Msgbox "你 好 "& MyName 

End Sub 
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G) 将 光标 放 到 过 程 中 的 任何 地 方 ， 按 F5 键 运行 过 程 ， 会 显示 一 个 输入 框 。 

(4) 输入 你 的 名 字 并 按 Enter 键 ， 会 显示 一 个 消息 框 ， 显 示 的 文字 中 包含 你 的 
名 字 。 

(5) 单 击 “确定 ”按钮 ， 返 回 过 程 中 。 

在 Dim 语句 中 不 必 提 供 数据 类 型 。 如 果 没有 数据 类 型 ,变量 将 被 定义 为 Variant 
类 型 ， 因 为 VBA 中 默认 的 数据 类 型 是 Variant。Variant 数据 类 型 占用 存储 空间 较 大 
(16 或 22 字 节 )， 而 且 它 将 影响 程序 的 性 能 ， 所 以 ， 应 慎重 使 用 。 


3. 使 用 数组 


数组 是 具有 相同 数据 类 型 并 共同 部 有 一 个 名 称 的 一 组 变量 的 集合 ， 数 组 中 的 元 
素 通过 索引 数字 加 以 区 分 ， 定 义 数组 的 语法 如 下 (其 中 是 数组 元 素 的 个 数 ): 
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Dim array name (D) As type 


例如 ， 如 果 要 创建 保存 10 个 学 生 名 字 的 数组 ， 可 以 用 以 下 语句 : 


1 Dim StudentName (9) As String 


注意 ， 括 号 中 的 数字 是 9 而 不 是 10。 这 是 因为 在 默认 的 情况 下 ， 第 一 个 索引 数 
字 是 0。 数 组 在 处 理 相似 信息 时 非常 有 用 。 假设 要 处 理 15 门 考试 成 绩 , 可 以 创建 15 
个 独立 的 变量 ， 这 意味 着 要 使 用 15 个 Dim 语句 。 也 可 以 创建 一 个 数组 来 保存 考试 
成 绩 ， 具 体 如 下 : 


而 Dim StudentScore (14) As Integer 


另 一 种 声明 数组 的 方法 是 不 给 定数 组 的 大 小 ， 而 在 程序 运行 时 定义 其 大 小 。 这 
通过 创建 动态 数组 就 可 以 做 到 。 例 如 ， 创 建 一 个 表格 ， 可 以 提示 用 户 输入 表格 的 行 
和 列 的 数目 。 声 明 动 态 数组 的 语法 如 下 : 

Dim dyn array() As type 

对 数组 声明 后 ， 可 以 在 程序 运行 时 使 用 ReDim 语句 指定 数组 的 大 小 : 


ReDim dyn array() (array size) 


参数 array_size 代表 数组 的 新 大 小 。 如 果 要 保留 数组 的 数值 ， 请 在 ReDim 语句 
后 使 用 保留 字 Preserve， 具 体 语法 如 下 : 


ReDim Preserve dyn array() (array size) 


4. 变量 赋值 


声明 变量 后 就 可 以 给 变量 赋值 。 请 注意 下 列 语 句 中 为 数组 变量 赋值 时 索引 数字 
的 使 用 。 


1 Dim StudentCount As Integer 
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Dim StudentScore As Integer 


Dim i As Integer 


studentCount = inputbox ("输入 学 生 的 人 数 : ") 
ReDim Preserve StudentScore (StudentCount) 
For i = 1 to StudentCount 
StudentScore (i) = inputbox(" 输 入 考试 成 绩 "g i ) 
Next 
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5. 变量 的 作用 范围 


变量 和 常量 可 以 在 两 个 地 方 定义 一 一 在 过 程 中 定义 和 在 模块 顶部 一 个 名 为 “ 通 
用 声明 ”的 区 域内 定义 。 定 义 的 位 置 决定 了 作用 域 。 

在 过 程 中 声明 ， 变 量 只 能 在 该 过 程 中 使 用 ， 其 他 过 程 中 不 能 使 用 这 个 变量 和 常 
量 , 这 种 变量 称 为 局 部 变量 或 过 程 级 变量 ; 在 模块 项 部 声明 的 变量 称 为 模块 级 变量 ， 
该 变量 在 模块 的 所 有 过 程 中 都 可 以 使 用 。 

还 有 一 种 等 级 的 作用 域 称 为 公共 级 。 公 共 级 变量 可 以 在 应 用 程序 的 任何 过 程 中 
使 用 ， 不 论 过 程 和 变量 是 否定 义 在 一 个 模块 。 这 就 使 得 公共 级 变量 在 使 用 中 十 分 灵 
活 ， 但 是 公共 级 变量 在 程序 运行 时 一 直 保 留 在 内 存 中 ， 这 样 就 占用 了 系统 资源 。 要 
创建 公共 级 变量 ， 可 以 用 Public 语句 ， 具 体 语法 如 下 : 


Public variablename Rs datatype 


要 创建 公共 级 常量 ， 语 法 如 下 : 
Public const CONSTANAME datatype = value 
公共 级 变量 或 常量 必须 在 模块 项 部 的 “通用 声明 ”区 域 中 定义 。 


5.5.3 ”条件 语句 


程序 中 经 常 需 要 做 的 是 进行 条 件 判断 ， 即 根据 不 同 的 条 件 ( 届 辑 判断 )， 执 行 不 
同 的 代码 片断 。VBA 中 的 条 件 判 断 语句 有 芷 语句 和 Select Case 语句 两 种 。 
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1. 使 用 If...Then...Else 语句 


根据 条 件 的 值 ， 可 使 用 于..Then...Else 语句 运行 指定 的 语句 或 一 个 语句 块 。 
If...Then...Else 语句 可 根据 需要 嵌 套 多 级 。 然而, 为 了 可 读 性 可 能 会 使 用 Select Case 
语句 ， 而 不 使 用 多 嵌 套 级 的 If..Then...Else 语句 。 

当 条 件 为 True 时 ， 若 只 执行 一 个 语句 ， 则 可 以 使 用 单行 的 于..Then 语法 。 下 
面 的 示例 显示 了 单行 语法 ， 省 略 了 Else 关键 字 : 


Sub FixDate() 
myDate = #2/13/95# 
If myDate < Now Then myDate = Now 


WDc 


End Sub 


为 了 运行 多 行 代码 ， 必 须 使 用 多 行 的 语法 ， 则 需要 包含 End If 语句 ， 如 同 下 
面 的 示例 所 示 : 


Sub AlertUser (value as Long) 
If value = 0 Then 
AlertLabel .ForeColor = "Red" 
AlertLabel .Font.Bold = True 
AlertLabel .Font.Italic = True 
End If 
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End Sub 


使 用 于..Then...Else 语句 可 以 定义 两 个 可 执行 的 语句 块 : 其 中 一 个 块 会 在 条 件 
为 True 时 执行 ， 而 另 一 个 块 会 在 条 件 为 False 时 执行 。 


Sub AlertUser (value as Long) 
If value = 0 Then 
AlertLabel .ForeColor = vbRed 
AlertLabel .Font .Bold = True 
AlertLabel .Font.Italic = True 
Else 


AlertLabel .Forecolor = vbBlack 
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AlertLabel .Font .Bold = False 
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-| AlertLabel .Font.Itali 
10 End If 
LE End Sub 
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c False 


如 果 第 一 个 条 件 为 False 时 ,测试 第 二 个 条 件 ， 则 可 以 在 下 .Then...Else 语句 
中 加 上 Elself 语句 。 例如 ， 下 面 的 函数 过 程 根 据 工作 分 类 来 计算 奖金 。 如 果 所 有 下 
和 Elself 语句 中 条 件 都 是 False， 则 会 运行 跟 在 Else 语句 之 后 的 语句 。 


If performance 


Bonus Salary * 0.1 


ElselIf performance 
salary * 0.09 


ElseIf performance 


Bonus 


Bonus salary * 0.07 


Else 
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Bonus 0 


End If 


己 
口 
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2. 使 用 Select Case 语句 


End Function 


当 一 个 表达 式 与 几 个 不 同 的 值 相 比较 时 


用 下..Then...Else 语句 中 的 ElseIf。If..Then.. 


同 的 表达 式 ， 在 控制 结构 的 项 部 ， 

在 下 面 的 示例 中 ,Select Case 语 
以 及 比较 运算 符 。 如 果 Select Case 语句 与 
Case Else 语句 运行 。 


Case 1 


Bonus 


Case 2, 3 


Bonus 


TomoDpr 


Case 4 To 6 


Function Bonus (performance, 


1 Then 


Select Case 语 


salary * 0. 


Salary * 0 


salary) 


2 Then 


3 200en 


， 可 以 使 用 Select Case 语句 来 交替 使 
.Else 语句 会 计算 每 个 Elself 语句 中 不 
只 计算 表达 式 一 次 。 


句 会 计算 发 送 给 此 过 程 的 参数 performance。 请 
注意 ， 每 个 Case 语句 可 以 包含 一 个 以 上 的 值 ， 


-个 值 的 范围 ， 或 是 一 个 值 的 组 合 
Case 语句 的 任何 值 相 匹 配 ， 则 可 选 的 


Function Bonus (performance, salary) 


Select Case performance 


1 
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8 Bonus = salary * 0.07 
9 Case Is > 8 

10 Bonus = 100 

11 Case Else 

3 Bonus = 0 

3 End Select 

14 End Function 


5.5.4 ”循环 语句 


程序 中 经 常 需要 重复 多 次 执行 一 段 代 码 ， 称 之 为 循环 。VBA 中 的 循环 语句 有 
For...Next 语句 、For Each...Next 语句 和 Do...Loop 语句 。 


1. 使 用 For...Next 语句 


可 以 使 用 For...Next 语句 去 重复 一 个 语句 块 ， 而 其 运行 次 数 是 指定 的 。For 循 
环 使 用 一 个 计数 变量 ， 当 重复 每 个 循环 时 它 的 值 会 增加 或 减少 。 

下 面 的 过 程 会 让 计算 机 发 出 哗 声 50 次 。For 语句 会 指定 计数 变量 x 的 开始 与 
结束 值 。Next 语句 会 将 计数 变量 的 值 加 1。 


了 Sub Beeps () 

2 For X = 1 To 50 
| Beep 

4 Next x 

5 End Sub 


使 用 Step 关键 字 ， 可 以 由 所 指定 的 值 增加 或 减少 计数 变量 。 在 下 面 的 示例 中 ， 
计数 变量 j 会 在 每 次 循环 重复 时 加 上 2。 当 循环 究 成 时 ，total 的 值 为 2、4、6、8 
和 10 的 总 和 。 


Sub TwosTotal () 
For j] = 2 To 10 Step 2 
total = total + j 
Next jj 
MsgBox "The total is " & total 


1 
有 
3 
4 
5 
6 End Sub 


为 了 减少 计数 变量 的 值 ， 可 以 指定 一 个 小 于 开始 值 的 结束 值 ， 并 使 用 负 的 Step 
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值 。 在 下 面 的 示例 中 ， 计 数 变量 myNum 会 在 每 次 循环 重复 时 减 去 2， 当 循环 完成 
时 ，total 的 值 为 16、14、12、10、8、6、4 和 2 的 总 和 。 


Sub NewTotal () 
For myNum = 16 To 2 Step -2 
total = total + myNum 
Next myNum 
MsgBox "The total is " & total 
End Sub 


ao 必 wb PP 


国教 学 提示 图 
在 Next 语句 后 面 不 必 包 含 计数 变量 的 名 称 。 上 述 示例 中 ， 因 为 要 具有 可 读 性 
才 加 上 计数 变量 的 名 称 。 


可 以 在 计数 变量 到 达 它 的 结束 值 之 前 , 使 用 Exit For 语句 来 退出 For...Next 语 
句 。 例 如 ， 当 错误 发 生 时 ， 可 以 使 用 在 下 ..Then...Else 语句 或 Select Case 语句 的 
True 语句 块 中 的 Exit For 语句 ， 它 是 专门 用 来 检查 此 错误 的 。 如 果 没 有 错误 发 生 ， 
则 下 ..Then...Else 语句 的 值 为 False， 循 环 会 像 预期 的 那样 运行 。 

2. 使 用 For Each...Next 语句 

For Each...Next 语句 会 重复 一 个 语句 块 ， 而 它 作用 于 集合 中 的 每 个 对 象 或 数组 
中 的 每 个 元 素 。 循 环 执行 一 次 ， 则 Visual Basic 会 自动 设置 一 个 变量 。 例 如 ， 下 面 
的 过 程 会 关闭 所 有 的 窗 体 ， 窗 体 包含 的 过 程 正 在 运行 除外 。 


1 Sub CloseForms () 

2 For Each frm In Application.Forms 

3 If frm.Caption <> Screen. ActiveForm.Caption Then frm.Close 
4 Next 

5 End Sub 


下 面 的 代码 会 在 数组 的 每 个 元 素 中 循环 ， 并 且 将 每 个 值 设 置 成 它 的 索引 变量 I 
的 值 。 


并 Dim TestArray(10) As Integer, I As Variant 
沁 For Each I In TestArray 


。149 。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


3 TestArray(I) = I 
4 Next I 
对 某 范围 的 单元 格 做 循环 


可 以 使 用 For Each...Next 循环 对 某 范 围 的 单元 格 做 循环 。 下 面 的 过 程 会 对 
Sheetl 中 的 Al:D10 范围 做 循环 ， 并 将 任何 绝对 值 小 于 0.01 的 号 码 设 为 0。 


1 Sub RoundToZero() 

2 For Each myObject in myCollection 

-| If Abs (myObject.Value) < 0.01 Then myObject.Value = 0 
4 Next 

5 End Sub 


和 For...Next 语句 一 样 ， 在 完成 前 也 可 以 使 用 Exit For 语句 来 退出 For 
Each...Next 循环 。 

下 面 的 示例 是 测试 在 A1:B5 范围 内 找 出 第 一 个 不 含 数值 的 单元 。 如 果 找 到 此 
类 单元 ， 则 会 有 信息 显示 并 用 Exit For 语句 退出 循环 。 


Sub TestForNumbers () 
For Each myObject In MyCollection 
If IsNumeric(myObject.Value) = False Then 
MsgBox "Object contains a non-numeric value." 
Exit For 
End If 
Next c 
End Sub 
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3. 使 用 Do...Loop 语句 


可 以 使 用 Do...Loop 语句 运行 语句 块 ， 而 它 所 用 的 时 间 是 不 确定 的 。 当 条 件 为 
True 时 ， 此 语句 会 一 直 重 复 。 

当 使 用 While 关键 字 去 检查 Do...Loop 语句 中 的 条 件 时 ， 可 以 有 两 种 方法 。 
可 以 在 进入 循环 之 前 检查 条 件 式 ， 也 可 以 在 循环 至 少 运行 一 次 之 后 才 检 查 条 件 式 。 

在 下 面 的 ChkFirstWhile 过 程 中 , 是 在 进入 循环 之 前 检查 条 件 。 如 果 将 myNum 
的 值 由 20 替换 成 9， 则 循环 中 的 语句 将 永远 不 会 运行 。 在 ChkLastWhile 过 程 中 ， 
在 条 件 变 成 False 之 前 循环 中 的 语句 只 执行 一 次 。 
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Sub ChkFirstWhile() 
counter = 0 


myNum = 20 


Do While myNum > 10 
myNum = myNum - 1 
counter = counter + 1 
Loop 
MsgBox "The loop made " & counter & " repetitions." 
End Sub 


Sub ChkLastWhile() 
counter = 0 


myNum = 9 


Do 
myNum = myNum - 1 
counter = counter + 1 
Loop While myNum > 10 
MsgBox "The loop made " & counter & " repetitions." 
End Sub 


当 使 用 Until 关键 字 去 检查 Do...Loop 语句 中 的 条 件 时 ， 可 以 使 用 两 种 方法 。 可 
以 在 进入 循环 之 前 检查 条 件 (如 同 ChkFirstUntil 过 程 所 示 )， 也 可 以 在 循环 至 少 运 行 
次 之 后 才 检查 条 件 (如 同 ChkLastUntil 过 程 所 示 )。 当 条 件 仍然 为 False 时 , 循环 继续 。 
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Sub ChkFirstUntil () 


counter = 0 


myNum = 20 


Do Until myNum = 10 
myNum = myNum - 1 
counter = counter + 1 

Loop 


MsgBox "The loop made " & counter & " repetitions." 


End Sub 


Sub ChkLastUntil () 
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3 
14 
35 
16 
17 
18 
19 
20 
2 


counter = 0 


myNum = 1 


myNum = myNum + 1 
counter = counter + 1 
Loop Until myNum = 10 


MsgBox "The loop made " & counter & " repetitions." 


End Sub 


可 以 使 用 Exit Do 语句 来 退出 Do...Loop 语句 。 例 如 ， 为 了 退出 无 穷 循环 ， 可 以 
在 于..Then...Else 语句 或 Select Case 语句 的 True 语句 块 中 使 用 Exit Do 语句 。 如 果 
条 件 为 False， 则 循环 会 像 通 常 那样 运行 。 

在 下 面 的 示例 中 ，myNum 被 赋予 一 个 会 造成 无 穷 循 环 的 值 。 而 If..Then...Else 
语句 会 去 检查 这 个 情况 然后 退出 ， 以 避免 无 穷 循 环 。 


Sub ExitExample() 
芝 counter = 0 
3 myNum = 9 
4 
5 Do Until myNum = 10 
6 myNum = myNum - 1 
1 counter = counter + 1 
8 If myNum < 10 Then Exit Do 
9 Loop 
10 MsgBox "The loop made " & counter & " repetitions." 
11 End Sub 
国教 学 提示 图 
可 以 按 Esc 或 Ctrl+Break 键 来 终止 无 穷 循环 。 
4. 使 用 With 语句 
使 用 With 语句 可 以 在 一 个 单一 对 象 或 一 个 用 户 定义 类 型 上 执行 一 系列 的 语句 。 
语法 如 下 : 
With object 
[statements] 
End With 
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With 语句 的 语法 具有 两 个 部 分 ， 如 表 5-5 所 示 。 


表 5-5 With 语句 说 明 


部 分 描述 
object 必要 参数 。 一 个 对 象 或 用 户 自 定义 类 型 的 名 称 
statements 可 选 参数 。 要 执行 在 object 上 的 一 条 或 多 条 语句 


With 语句 可 以 对 某 个 对 象 执行 一 系列 的 语句 ,而 不 用 重复 指出 对 象 的 名 称 。 例 
如 ， 要 改变 一 个 对 象 的 多 个 属性 ， 可 以 在 With 控制 结构 中 加 上 属性 的 赋值 语句 ， 
这 时 候 只 是 引用 对 象 一 次 而 不 是 在 每 个 属性 赋值 时 都 要 引用 它 。 下 面 的 示例 将 某 一 
范围 的 单元 格 都 填 入 30， 字 体 使 用 黑体 格式 ， 并 将 内 部 单元 格 颜色 设置 成 黄色 。 


1 Sub FormatRange () 

2 With Worksheets ("Sheetl1") .Range ("R1:C10") 
了 -Value = 30 

4 .Font.Bold = True 

5 .Interior.Color = RGB(255, 255, 0) 

6 End With 

| End Sub 


可 以 将 With 语句 柑 套 使 用 ， 这 样 效率 更 高 。 下 面 的 示例 是 在 Al 单元 格 中 插 
入 一 个 公式 ， 然 后 格式 化 字体 。 


Sub MyInput () 


1 

2 With Workbooks ("Bookl") .Worksheets ("Sheetl") .Cells(1，1) 
号 .Formula = "=SQRT (50)" 
4 

5 With .Font 

6 -Name = "Arial™ 

沁 .Bold = True 

8 .Size = 8 

9 End With 

10 End With 

11 End Sub 
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5.5.5 ”其 他 常用 常见 的 语法 元 素 


1. MsgBox 函数 


作用 : 在 弹出 对 话 框 中 给 用 户 提示 信息 。 

语法 : MsgBox(prompt [, buttons] [, title] [, helpfile, context] ) 

说 明 : 在 MsgBox 函数 的 语法 中 , 加 粗 的 斜体 字 是 此 函数 的 命名 参数 。 方 括号 
所 包含 的 参数 是 选择 性 的 (在 实际 编写 的 代码 中 不 用 键入 方 括 号 )。 在 MsgBox 函数 
中 ， 唯 一 必须 提供 的 参数 prompb 是 作为 提示 的 文本 。 

在 代码 中 可 以 利用 位 置 或 名 称 来 指定 函数 与 方法 的 参数 。 若 利用 位 置 来 指定 参 
数 ， 则 必须 根据 语法 中 的 顺序 ， 利 用 逗号 来 分 隔 每 一 个 参数 ， 例 如 : 


MsgBox "Your answer is correct!", 0, "Answer Box" 


若 以 名 称 来 指定 参数 ， 则 须 在 参数 名 称 后 跟着 冒号 与 等 号 (:=)， 最 后 再 加 上 参 
数值 。 可 以 任意 顺序 来 指定 命名 参数 ， 例 如 : 


MsgBox Title:="Answer Box", Prompt:="Your answer is correct!" 


函数 以 及 某 些 方法 的 语法 会 使 用 圆 括号 将 参数 封闭 起 来 。 这 些 函 数 和 方法 会 
回 值 ， 所 以 必须 用 圆 括 号 将 参数 封闭 起 来 ， 才 可 以 赋值 给 变量 。 如 果 忽 略 返回 值 或 
是 没有 传递 所 有 的 参数 ， 则 可 以 不 用 圆 括号 。 方 法 若 不 返回 值 ， 则 不 用 将 参数 用 圆 
括号 封闭 起 来 。 上 述 准则 不 管 是 使 用 命名 参数 或 位 置 参 数 都 适用 。 

在 下 面 的 示例 中 ，MsgBox 函数 的 返回 值 是 一 个 号 码 ， 它 被 存储 在 变量 myVar 
中 ， 用 来 指示 选择 的 按钮 。 因 为 需要 用 到 返回 值 ， 所 以 调用 时 必须 使 用 圆 括 号 。 而 
另 一 个 消息 框 则 是 用 来 显示 变量 的 值 。 


时 Sub Question() 
2 myVar =MsgBox (Prompt:="Ienjoymy job.", Title:="Answer Box", 


Buttons:="4") 


| MsgBox myVar 
4 End Sub 
2. 添加 注释 


注释 可 以 为 读 代 码 的 人 解释 过 程 或 是 特别 的 命令 。Visual Basic 在 运行 过 程 时 ， 
会 忽略 掉 注释 。 注 释 行 可 由 省 略 符号 () 或 Rem 接着 一 个 空格 作为 开始 ， 并 且 可 以 
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加 在 过 程 的 任何 地 方 。 为 了 在 语句 的 同一 行 中 添加 注释 ， 必 须 在 语句 后 面 插入 一 个 
省 略 符号 ， 然 后 加 上 注释 文本 。 按 照 默认 规定 ， 注 释 会 以 绿色 文本 显示 。 


3. Activate 方法 


作用 : 激活 对 象 。 


语法 : opjecr Activate 

说 明 : 在 Activate 方法 语法 中 ,斜体 字 opject 是 一 个 所 提供 信息 的 占 位 符 , 在 
下 列 代码 中 表示 一 个 对 象 。 在 键入 粗 体 字 时 必须 完全 像 上 面 的 例子 一 样 。 例 如 ， 下 
面 的 过 程 会 在 活动 的 文档 中 激活 第 二 个 窗口 。 


了 Sub MakeRctive () 

2 Windows (2) .Activate 
3 End Sub 

4. Set 语句 


作用 : 将 对 象 引用 赋 给 变量 或 属性 。 
语法 : Set objectvar = {[New] objectexpression | Nothing} 
说 明 : Set 语句 的 语法 如 表 5-6 所 示 。 


objectexpression 


Nothing 


表 5-6_Set 语句 的 语法 说 明 
描述 

必需 的 。 变 量 或 属性 的 名 称 ， 遵 循 标准 变量 命名 约定 
可 选 的 .通常 在 声明 时 使 用 New, 以 便 可 以 隐 式 创建 对 象 。 如 果 New 
与 Set 一 起 使 用 ， 则 将 创建 该 类 的 一 个 新 实例 。 如 果 objectvar 包 
含 了 一 个 对 象 引用 ， 则 在 赋 新 值 时 释放 该 引用 。 不 能 使 用 New 关 
键 字 来 创建 任何 内 部 数据 类 型 的 新 实例 ， 也 不 能 创建 从 属 对 象 
必需 的 。 由 对 象 名 、 所 声明 的 相同 对 象 类 型 的 其 他 变量 ， 或 者 返回 
相同 对 象 类 型 的 函数 或 方法 所 组 成 的 表达 式 
可 选 的 。 断绝 objectvar 与 任何 指定 对 象 的 关联 。 若 没有 其 他 变量 指 
向 objectvar 原来 所 引用 的 对 象 ， 将 其 赋 为 Nothing 会 释放 该 对 象 
所 关联 的 所 有 系统 及 内 存 资源 


为 确保 合法 ，objectvar 必须 是 与 所 赋 对 象 相 一 致 的 对 象 类 型 。 
Dim、Private、Public、ReDim 以 及 Static 语句 都 只 声明 了 引用 对 象 的 变量 。 
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在 用 Set 语句 将 变量 赋 为 特定 对 象 之 前 ， 该 变量 并 没有 引用 任何 实际 的 对 象 。 

下 面 的 示例 说 明了 如 何 使 用 Dim 来 声明 Forml 类 型 的 数组 。Forml 实际 上 
还 没有 实例 。 然 后 使 用 Set 将 新 建 Forml 的 实例 的 引用 赋 给 myChildForms 变量 。 
在 MDI 应 用 程序 中 可 以 使 用 这 些 代 码 来 创建 子 窗 体 。 


Dim myChildForms(1 to 4) Rs Forml 
Set myChildForms(1) = New Forml 
Set myChildForms (2) = New Forml 


Set myChildForms (3) = New Forml 
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Set myChildForms (4) = New Forml 


通常 ， 当 使 用 Set 将 一 个 对 象 引用 赋 给 变量 时 ， 并 不 是 为 该 变量 创建 该 对 象 的 
- 份 副本 ， 而 是 创建 该 对 象 的 一 个 引用 。 可 以 有 多 个 对 象 变量 引用 同一 个 对 象 。 因 
为 这 些 变量 只 是 该 对 象 的 引用 ， 而 不 是 对 象 的 副本 ， 因 此 对 该 对 象 的 任何 改动 都 会 
反应 到 所 有 引用 该 对 象 的 变量 。 不 过 ， 如 果 在 Set 语句 中 使 用 New 关键 字 ， 那 么 
实际 上 就 会 新 建 一 个 该 对 象 的 实例 。 

下 面 的 示例 可 在 当前 工作 敌 中 新 建 一 张 工作 表 ， 然 后 设置 该 工作 表 的 名 称 。 


3 Set newSheet = Worksheets .Rdd 
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newSheet .Name = "1995 Budget" 


下 面 的 示例 可 新 建 一 张 工 作 表 ， 并 在 其 中 插入 当前 工作 夭 所 有 名 称 的 列表 ， 同 
时 包括 名 称 各 自 所 对 应 单元 格 区 域 的 Al- 样 式 引用 。 


1 Set newSheet = ActiveWorkbook.Worksheets.Add 

2 i=1 

3 For Each nm In ActiveWorkbook.Names 

4 newSheet .Cells (I,1) .Value = nm.NameLocal 

5 newSheet .Cells(I, 2) .Value = "'" & nm.RefersToLocal 
6 主 - 王 主 - 生 王 

六 Next 


下 面 的 示例 使 用 Set 语句 将 对 象 引用 赋 给 变量 。 假 定 YourObject 指向 一 个 具有 
Text 属性 的 合法 对 象 。 
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Dim Yourobject，MyObject，MYStT 


"对 象 引 用 赋值 ，Myobject 和 Yourobject 引用 同一 个 对 象 。 
Set MyObject = YourObject 


YourObject.Text = "Hello World"”“' 初 始 化 属性 。 
MyStr = MyObject.Text ' 返 回 "Hello World"。 


oo AnoDpr 


"脱离 关联 ，Myobject 不 再 引用 Yourobject。 
Set MyObject = Nothing "释放 该 对 象 。 


说 
口 


5. Beep 语句 


作用 : 通过 计算 机 喇叭 发 出 一 个 声调 。 

语法 : Beep 

说 明 : 呼叫 的 频率 与 时 间 长 短 取 决 于 硬件 和 系统 软件 ， 并 随 电脑 不 同 而 不 同 。 
下 面 的 示例 可 使 用 Beep 语句 让 计算 机 连续 响 三 声 : 


1 Dim I 
2 For I=1To3 ， 循环 3 次 。 
3 Beep ， 发 出 一 声 。 
4 I=I+1 
Next I 
6. GoTo 语句 


作用 : 无 条 件 地 转移 到 过 程 中 指定 的 行 。 

语法 : GoTo line 

说 明 : 必要 的 line 参数 可 以 是 任意 的 行 标签 或 行 号 。GoTo 只 能 跳 到 它 所 在 过 
程 中 的 行 。 

下 面 的 示例 可 使 用 GoTo 语句 在 一 个 过 程 内 的 不 同 程序 段 间 作 流 程控 制 , 不 同 
程序 段 用 不 同 的 “程序 标签 ”来 区 隔 。 
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二 Sub GotoStatementDemo () 

2 Dim Number， MyString 

3 Number = 1 ， 设置 变量 初始 值 。 

4 ' 判断 Number 的 值 以 决定 要 完成 哪 一 个 程序 区 段 (以 “程序 标签 ”来 表 式 ) 。 

| If Number = 1 Then GoTo Linel Else GoTo Line2 

6 

Linel: 

8 MyString = "Number equals 1" 

9 GoTo LastLine ， 完成 最 后 一 行 。 

10 Line2: 

ul "下 面 的 语句 不 会 被 执行 。 

2 MyString = "Number equals 2" 

13 LastLine: 

14 Debug.Print MYString ' 将 “Number equals 1” 显 示 在 “ 立 
即 ” 窗 口 。 

15 End Sub 

国教 学 提示 图 


太 多 的 GoTo 语句 ,会 使 程序 代码 不 容易 阅读 及 调试 。 尽 可 能 使 用 结构 化 控制 
语句 (Do...Loop、 For...Next, If...Then...Else、Select Case)。 


5.5.6 ”应 用 案例 


完善 自动 生成 大 写 金额 的 程序 


案例 目标 


学 习 要 点 


角 、 分 、 零 、 整 ”字样 

1. 学 习 用 整除 、 舍 入 的 方法 取出 数字 的 特定 位 数 
2. 学 习 For 循环 语句 的 使 用 方法 

3. 学 习 下 判断 语句 的 语法 及 下 语句 的 苞 套 用 法 
4. 学 习 变量 的 定义 、 赋 值 、 调 用 
5. 字符 串 拼接 的 用 法 
6. 学 习 自 定义 函数 的 用 法 
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在 第 5.4.5 节 案例 基础 上 进行 完善 , 使 其 生成 的 大 写 金额 中 相应 位 置 出 现 “ 元 、 


吉 了 5 但 Excel VB4 类 砂 策 


步骤 : 

(D 进入 VBA 编程 环境 ， 在 工程 资源 管理 器 窗口 右 击 VBAProject 选项 ， 在 快 
捷 菜 单 中 选择 “插入 ”下 的 “模块 ”选项 。 

(2) 在 新 建 模块 的 代码 窗口 输入 以 下 代码 。 


1 ' 通 过 此 子 过 程 调用 自 定义 的 Exchange () 函数 

Sub 大 写 金 额 完善 () 

3 "设置 单元 格 的 数字 显示 格式 

4 Selection.NumberFormatLocal = "0.00_ " 

| 

6 "对 所 选区 域 中 的 每 个 单元 格 分 别 进行 转换 

了 For Each cell In Selection 

8 cel1l.offset(0,1) .Value = Exchange (cell.Value) 

9 Next cell 

10 End Sub 

i11 

I2 ' 大 写 金额 转换 函数 ， 参 数 Money 为 被 转换 的 数字 金额 

13 Function Exchange (Money) 

14 "声明 存放 元 、 角 、 分 个 数位 的 变量 num_ yuan、num_jiao、num_fen 

Dim num yuan As Long 

16 Dim num jiao As Long 

Ey Dim num fen As Long 

18 "声明 存放 最 终结 果 的 变量 Result 

| Dim Result As String 

20 Result = "" 

2 

22 ' 取 整数 位 ，Int () 函数 用 于 将 其 参数 转换 为 整 型 数字 ，Rbs () 函数 用 于 提取 
数字 的 绝对 值 ，Round () 函数 用 于 对 其 参数 合 入 到 适合 的 位 数 

| num yuan = Int(Round(100 * Rbs (Money)) / 100) 

24 ' 取 小 数 第 一 位 

| num jiao = Round (100 * Abs (Money) + 0.00001) - num yuan * 100 

26 ' 取 小 数 第 二 位 

用 放 num fen = Round( (num jiao / 10 - Int(num jiao / 10)) * 10) 

28 

29 ' 判 断 是 否 需 要 插入 “元 ” 字 


*。159。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


30 If num yuan < 1 Then 

31 Result = "" 

三 Else 

33 Result = Application.Text (num yuan，"[DBNum2]") & 元” 

34 End If 

35 

36 "判断 是 否 需 要 插入 “ 角 ” 字 

37 If num jiao > 9.4 Then 

38 Result = Result + Application.Text (Int (num jiao /10), 
"[DBNum2]") & " 角 " 

39 Else 

40 If num yuan < 1 Then 

41 Result = Result + "" 

42 Else 

43 "判断 是 否 需要 插入 “ 零 ” 字 

44 If num fen > 0.4 Then 

45 Result = Result + " 零 " 

46 Else 

47 Result = Result + "" 

48 End If 

49 End If 

50 End If 

51 

5 ' 判 断 是 否 需 要 插入 “分 ”或 “ 整 ” 字 

53 If num fen < 1 Then 

54 Result = Result + " 整 " 

55 Else 

56 Result = Result+Application.Text (Round (num fen, 0), 
"[DBNum2]") & "分 " 

53 End If 

58 

59 "返回 结果 

60 Exchange = Result 

61 End Function 
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(3) 保存 代码 返回 Excel 工作 表 ， 在 任意 单元 格 中 输入 数字 ， 选 择 “ 开 发 工具 ” 
菜单 栏 下 的 “ 宏 ” 命 令 ， 执 行 该 程序 ， 其 运行 效果 如 图 5-8 所 示 。 


B 


大 写 金额 
陆 什 抽 佰 估 失 过 元 整 
喜 全 起 失 全 元 陆 角 伍 分 


图 5-8 ”完善 后 自动 生成 大 写 金额 


5.6 窗 体 及 控件 


VBA 包括 一 类 特殊 的 对 象 一 一 用 户 窗 体 (UserForm), 用 户 窗 体 是 一 个 窗口 或 对 
话 框 ， 用 以 构成 应 用 程序 的 用 户 界面 部 分 。 使 用 用 户 窗 体 可 以 提供 一 个 图 形 用 户 界 
面 ， 在 此 界面 上 ， 可 以 为 其 添加 按钮 、 图 片 、 文 本 框 等 控件 ， 以 作为 一 个 自 定义 窗 
口 或 者 对 话 框 ， 供 用 户 与 程序 进行 交互 。 


5.6.1 设计 用 户 窗 体 


右 击 工程 资源 管理 器 ， 选 择 “ 插 入 ”菜单 下 的 “用 户 窗 体 ” 命 令 可 以 新 建 一 个 
用 户 窗 体 ， 如 图 5-9 所 示 。 新 建 的 用 户 窗 体 默认 名 称 为 “UserForm1”， 新 建 以 后 的 
用 户 窗 体 是 一 个 空白 区 域 ， 可 以 从 工具 箱 中 选择 控件 为 用 户 窗 体 添加 界面 元 素 。 选 
中 用 户 窗 体 , 在 属性 窗口 内 可 以 设置 其 属性 (如 果 工具 箱 和 属性 窗口 没有 显示 ， 可 以 
通过 “视图 ”菜单 激活 )， 也 可 以 拖 动 改变 其 大 小 。 窗 体 具 有 设计 模式 和 代码 模式 之 
分 。 在 资源 管理 器 窗口 选择 窗 体 ， 可 以 在 其 工具 栏 或 者 通过 右键 切换 窗 体 的 设计 模 
式 和 代码 模式 。 设 计 模 式 下 可 以 通过 鼠标 拖 搜 以 及 属性 调整 来 可 视 化 设计 用 户 窗 体 
的 外 观 和 样式 。 在 代码 模式 下 ， 可 以 像 在 一 般 的 模块 窗 体 中 一 样 定义 变量 、 过 程 ， 
并 且 可 以 响应 窗 体 和 控件 的 事件 。 
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新 建 一 个 窗 体 , 在 属性 窗口 ,将 此 窗 体 的 “名 称 (Name) ”设置 为 “fmMyHelloWorld”， 
Caption 设置 为 “Hello,My First Form”。 

从 工具 箱 中 选择 不 同 的 控件 ， 然 后 在 用 户 窗 体 上 按 下 鼠标 左 键 拖 动 ， 即 可 将 控 
件 添加 到 用 户 窗 体 。 从 “工具 箱 ” 选 择 “ 文 本 框 ”， 添 加 到 用 户 窗 体 ， 设 置 其 名 称 
为 “txtHelloMsg”; 选择 “命令 按钮 ”, 添加 到 用 户 窗 体 , 设置 其 名 称 为 “cmdHello”， 
Caption 为 “Hello”。 双 击 按钮 ，VBA IDE 将 自动 打开 代码 窗口 ， 并 新 建 一 个 名 为 
“cmdHello_Click” 的 过 程 ， 这 个 过 程 称 为 事件 ， 当 用 户 单 击 按钮 ， 此 过 程 内 的 代 
码 就 会 执行 。 
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图 5-9 用 户 窗 体 
在 此 过 程 中 输入 如 下 代码 : 
由 Private Sub cmdHello Click() 
电 Me.txtHelloMsg.Text = "Hello, World!" 
3 End Sub 


切换 到 用 户 窗 体 的 设计 模式 ， 在 工具 栏 上 单 击 “运行 ”按钮 可 以 测试 此 用 户 窗 
体 ， 刚 刚 新 建 的 用 户 窗 体 将 显示 在 桌面 ， 单 击 按钮 ， 文 本 框 的 文字 将 会 变 成 “Hello， 
My VBA!”， 如 图 5-10 所 示 。 
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图 5-10 运行 的 My First Form 


这 就 是 用 户 窗 体 编程 的 基本 概念 ,可 以 操作 的 窗 体 、 文本 框 、 按 钮 等 都 是 对 象 ， 
准确 来 说 ， 都 是 ActiveX 控件 ， 通 过 对 这 些 对 象 的 可 视 化 设计 ， 设 置 其 属性 ， 然 后 
在 其 事件 内 写 入 需要 的 操作 。 

总 而 言 之 ， 用 户 窗 体 是 VBA 中 的 一 个 对 象 ， 可 以 通过 设置 其 属性 、 调 用 其 方 
法 、 响 应 其 事件 来 操作 用 户 窗 体 和 位 于 用 户 窗 体 中 的 控件 ， 当 用 户 对 用 户 窗 体 的 元 
素 进行 操作 时 (通过 鼠标 、 按 钮 )， 响 应 的 事件 就 会 被 执行 ， 这 种 编程 模式 就 叫做 事 
件 驱动 的 编程 模式 。 可 以 创建 一 个 过 程 来 显示 设计 好 的 用 户 窗 体 。 

显示 一 个 用 户 窗 体 需 要 经 过 2 个 步骤。 首先 这 些 用 户 窗 体 必须 被 装载 (Loaded)， 
接着 被 显示 (Show)。 装 载 窗 体 就 是 为 窗 体 分 配 内 存 ， 初 始 化 这 个 窗 体 。 显 示 窗 体 则 是 
创建 一 个 图 形 窗 口 ， 显 示 给 用 户 。 装 载 窗 体 可 以 通过 调用 窗 体 的 Load 方法 ， 显 示 窗 
体 可 以 调用 窗 体 的 Show 方法 。 如 果 调 用 Show 方法 时 窗 体 还 没有 装载 ， 则 会 首先 自 
动 装载 窗 体 。 相 应 地 ， 可 以 通过 Hide 方法 隐藏 窗 体 ， 通 过 Unload 方法 来 卸载 (销毁 ) 
窗 体 。 如 果 需 要 快速 显示 窗 体 ， 在 显示 之 前 应 该 先 装载 对 象 ， 对 重复 使 用 的 窗 体 ， 不 
要 使 用 卸载 操作 而 应 隐藏 对 象 ， 这 样 可 以 快速 显示 窗 体 ， 提 高 效率 。 

对 于 一 个 窗 体 来 说 ， 与 创建 、 显 示 、 销 毁 相关 的 有 3 个 事件 ，Activate 事件 发 
生 在 窗 体 成 为 当前 激活 窗 体 之 时 ，Deactivate 事件 则 发 生 在 窗 体 不 再 是 当前 激活 窗 
体 之 时 ，Terminate 发 生 在 窗 体 销毁 (Unload) 之 时 。 


5.6.2 ”使 用 控件 


用 户 窗 体 编程 的 大 部 分 工作 就 是 在 工具 箱 选择 合适 的 工具 ， 放 置 到 用 户 窗 体 ， 
设置 其 属性 。 工具 箱 中 包含 了 一 系列 可 以 放置 到 窗 体 的 控件 , 例如 标签 (Label) 控 件 ， 
可 以 显示 静态 文本 ,文本 框 (TextBox) 可 以 显示 动态 的 可 编辑 文本 。 可 以 直接 从 工具 
箱 ( 如 图 5-11 所 示 )， 将 控件 拖 搜 到 窗 体 上 的 合适 位 置 ， 通 过 拖 搜 设置 大 小 、 位 置 ， 
在 属性 窗口 设置 其 属性 。 
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图 5-11 工具 箱 


图 5-11 所 列 工具 箱 中 各 个 控件 的 说 明 见 表 5-7。 


表 5-7 控件 说 明 

控 件 | 图标 说 有明 

标签 A 显示 静态 文本 

文本 框 abl 接受 用 户 输入 

复合 框 印 通过 下 拉 方 式 列 出 多 个 选项 并 从 中 选择 。 可 以 选择 其 中 的 项 目 或 输 
入 一 个 其 他 值 

列表 框 国 同时 列 出 多 个 选项 并 从 中 选择 。 只 能 单 选 

复 选 框 vy 它 是 一 个 选择 控件 ， 通 过 单 击 可 以 选择 和 取消 选择 ， 可 以 多 项 选择 

选项 按钮 | 个 通常 几 个 选项 按钮 组 合 在 一 起 使 用 ， 在 一 组 中 只 能 选择 一 个 选项 按钮 

切换 按钮 | 已 显示 项 目的 选中 状态 

框架 加 | 它 用 于 将 其 他 控件 进行 组 合 

命令 按钮 | 一 ! 用 于 执行 宏 命令 

TabStrip 用 于 将 一 系列 相关 的 控件 显示 为 一 个 组 

多 页 至 用 于 将 多 屏 信息 作为 单个 集合 显示 

滚动 条 并 非常 见 的 用 来 为 内 容 很 长 的 窗 体 添加 滚动 功能 的 控件 ， 而 是 一 种 

昌 选择 机 制 。 例 如 调节 过 渡 色 的 滚动 条 控件 。 包 括 水 平 滚动 条 和 垂直 

滚动 条 

旋转 按钮 也 是 一 种 数值 选择 机 制 ， 通 过 单 击 控件 的 箭头 来 选择 数值 。 例 如 改 


Ma 


变 Windows 日 期 或 时 间 就 会 使 用 到 微调 控件 


图 像 


用 于 在 窗 体 中 显示 图 片 
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用 户 窗 体 以 及 工具 箱 的 常用 控件 包含 有 一 些 通用 的 属性 、 方 法 和 事件 (不 一 定 所 
有 控件 都 有 )， 这 些 属性 、 方 法 和 事件 描述 如 表 5-8、 表 5-9、 表 5-10 所 示 。 


表 5-8_ 用 户 窗 体 和 控件 的 常用 属性 描述 


属性 名 称 描述 
BackColor 控制 控件 的 背景 色 

BorderColor 指定 对 象 的 边框 颜色 

Caption 在 控件 上 显示 的 文本 ， 不 能 被 用 户 改变 
ColumnCount 指定 列表 框 或 组 合 框 的 显示 列 数 

ControlTipText 当 用 户 鼠 标 指针 停留 在 控件 上 时 显示 的 提示 信息 
Enabled 当 为 True 时 ， 会 获取 焦点 并 响应 用 户 操 作 

Font 表示 控件 的 字体 样式 

ForeColor 表示 控件 的 前 景色 ， 如 控件 上 字体 的 颜色 
Height 表示 控件 的 高 度 

InsideHeight 返回 窗 体 中 客户 区 的 高 度 ， 以 磅 为 单位 
InsideWidth 返回 窗 体 中 客户 区 的 宽度 ， 以 磅 为 单位 

Left 表示 控件 左 侧 距 窗 体 左 侧 的 距离 

Locked 当 为 True 时 ， 用 户 无 法 改变 其 内 容 

Name 表示 控件 的 名 称 

PasswordChar 指定 在 文本 框 中 是 显示 占 位 符 还 是 显示 实际 输入 的 字符 
Picture 指定 显示 在 图 像 控件 上 的 图 片 


PictureAlignment 指定 一 个 背景 图 片 的 位 置 


Selected 


返回 或 设置 列表 框 中 条 目的 选 定 状态 


SelectionMargin 规定 用 户 能 否 通过 单 击 文本 左边 区 域 来 选中 一 行 


SpecialEffect 控件 的 显示 效果 ， 例 如 平面 效果 之 类 

TabIndex 设置 控件 在 窗 体 中 的 Tab 顺序 

TabStop 当 用 户 使 用 Tab 键 设置 焦点 到 此 控件 后 ， 控 件 是 否 接受 焦点 
Text 返回 或 设置 文本 框 的 文本 。 改 变 组 合 框 或 列表 框 中 选 定 的 行 
Top 控件 距 窗 体 上 部 的 距离 

Value 一 般 包含 控件 的 状态 或 者 内 容 

Visible 为 True 则 显示 在 窗 体 上 ， 和 否则 不 显示 

Width 控件 宽度 
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方法 名 称 


表 5-9_ 用 户 窗 体 和 控件 的 常用 方法 描述 
描 述 


Add 


AddItem 


Clear 


用 于 在 TabStrip 或 多 页 中 添加 或 插入 一 个 标签 或 页 , 或 通过 其 程序 
设计 标识 符 (ProgID) 在 页 或 窗 体 中 添加 控件 

【语法 】 

对 于 多 页 和 TabStrip: 

Set Object = object.Add( [ Name [. Caption [. index]]] ) 

对 于 其 他 控件 : 

Set Control = object.Add( ProgID [, Name [. Visible]] ) 

【参数 说 明 】 

Name 可 选 。 指 定 被 添加 的 对 象 的 名 称 。 如 果 没有 指定 名 称 ， 系 统 
将 根据 使 用 该 窗 体 的 应 用 程序 的 规则 ， 产 生 默 认 的 名 称 

Caption 可 选 。 指 定 在 标签 或 控件 上 出 现 的 题 注 。 如 果 没 有 指定 题 
注 ， 系 统 将 根据 使 用 该 窗 体 的 应 用 程序 的 规则 ， 产 生 默认 的 题 注 
index 可 选 。 表 示 页 或 标签 在 Pages 或 Tabs 集合 中 的 位 置 。 若 没 
有 规定 索引 , 系统 会 将 页 或 标签 添加 到 Pages 或 Tabs 集合 的 末尾 ， 
并 赋予 它 相 应 的 索引 值 

ProgID 必需 。 程 序 设计 标识 符 。 是 用 于 标识 对 象 类 的 、 没 有 空格 的 
文本 串 。ProgID 的 标准 语法 是 <Vendor>.<Component>.<Version> 。 
ProgID 会 被 映射 为 类 标识 符 (CLSID) 

Visible 可 选 。 若 对 象 为 可 见 的 (这 是 默认 方式 ) 则 为 True; 若 对 象 为 
隐藏 的 则 为 False 

对 于 单列 的 列表 框 或 组 合 框 ， 在 列表 中 添加 一 项 。 对 于 多 列 的 列表 
框 或 组 合 框 ， 在 列表 中 添加 一 行 

【语法 】 

Variant = object.AddItem( [ irem [. varIndex]] ) 

【参数 说 明 】 

Ttem 可 选 。 指 定 要 添加 的 项 或 行 。 第 一 个 项 或 行 的 编号 为 0; 第 二 
个 项 或 行 的 编号 为 1， 依 此 类 推 

varIndex 可 选 。 整 数 ， 指 定 新 的 项 或 行 在 对 象 中 的 位 置 


从 一 个 对 象 或 集合 中 删 去 所 有 对 象 
【语法 】 
object.Clear0 
【参数 说 明 】 
无 参数 
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( 续 表 ) 


方法 名 称 描述 


将 对 象 的 内 容 复制 到 剪贴 板 上 

【语法 】 

‘object.CopyO 

【参数 说 明 】 

无 参数 

从 一 个 对 象 中 删除 选 定 的 信息 并 将 它 送 达 剪贴 板 
【语法 】 

objectCutO 

【参数 说 明 】 

无 参数 


Copy 


Cut 


显示 组 合 框 的 列表 区 
【语法 】 
‘object.DropDownO 
【参数 说 明 】 
无 参数 
返回 一 个 整数 值 ， 表 示 指 定 的 格式 是 否 在 DataObject 上 
【语法 】 
Boolean = object.GetFormat( format ) 
【参数 说 明 】 
Jormat 必需 。 整 数 或 字符 串 ， 用 来 表示 可 能 存在 于 DataObject 之 
中 的 特定 格式 。 如 果 特 定 的 格式 存在 于 DataObject 之 中 ， 则 
GetFormat 返回 True 
从 剪贴 板 复制 数据 到 DataObject 
【语法 】 
String = object.GetFromClipboardO 
【参数 说 明 】 
无 参数 


DropDown 


GetFormat 


GetFromClipboard 


GetText 用 特定 的 格式 在 DataObject 中 检索 文本 串 
【语法 】 
String = object.GetText( [ formal]) 
【参数 说 明 】 
Jormat 可 选 。 字 符 串 或 整数 ， 用 来 指定 要 在 DataObject 中 检索 的 
数据 的 格式 
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( 续 表 ) 
方法 名 称 描述 
Item 返回 集合 的 一 个 成 员 ， 可 以 按 位 置 ， 也 可 按 名 称 
【语法 】 
Set Object = object.Item( collectionindex) 
【参数 说 明 】 
collectionindex 必需。 集合 中 成 员 的 位 置 或 索引 
Move 移动 一 个 窗 体 或 控件 ， 或 者 移动 Controls 集合 中 的 所 有 控件 


【语法 】 

对 于 窗 体 或 控件 : 

objectMove( [Left [, Top [. Width [, Height [. Layout]]]]]) 

对 于 Controls 集合 : 

object.Move( X. ¥) 

【参数 说 明 】 

Left 可 选 。 单 精度 值 ， 以 磅 为 单位 ， 表 示 对 象 左边 缘 的 横 坐 标 
Top 可 选 。 单 精度 值 ， 以 磅 为 单位 ， 表 示 对 象 上 边缘 的 纵 坐 标 
Width 可 选 。 单 精度 值 ， 以 磅 为 单位 ， 表 示 对 象 的 宽度 
Height 可 选 。 单 精度 值 ， 以 磅 为 单位 ， 表 示 对 象 的 高 度 
Layout 可 选 。 布 尔 量 ， 表 示 在 这 次 移动 之 后 控件 的 父 对 象 是 否 初始 
化 Layout 事件 。 其 默认 值 为 False 

忌 了 必需 。 单 精度 值 ， 以 磅 为 单位 ,指定 了 Controls 集合 中 每 个 控 
件 的 当前 水 平和 垂直 位 置 的 变化 量 

粘贴 剪贴 板 上 的 内 容 

【语法 】 

objectPaste0 

【参数 说 明 】 

无 参数 

取消 最 近 一 次 撤销 操作 

【语法 】 

Boolean = objectLRedoAction0 

【参数 说 明 】 

无 参数 


Paste 


RedoAction 
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( 续 表 ) 
方法 名 称 描述 
Remove 从 集合 中 删除 一 个 成 员 ， 或 者 从 框架 、 页 面 或 窗 体 中 删除 一 个 控件 
【语法 】 
objectRemove( collectionindex) 
【参数 说 明 】 
collectionindex 必需 。 成 员 在 集合 内 的 位 置 或 索引 。 可 以 是 数字 ， 
也 可 是 字符 串 。 如 果 该 值 是 数字 ， 则 最 小 值 为 零 ， 最 大 值 比 集合 中 
的 成 员 数 少 一 。 若 该 值 为 字符 串 ， 则 必须 对 应 有 效 的 成 员 名 
Removeltem 从 列表 框 或 组 合 框 的 列表 中 删 去 一 行 
【语法 】 
Boolean = objectLRemoveItem( index ) 
【参数 说 明 】 
index 必需 。 指 定 要 删除 的 行 。 第 一 行 的 行 号 为 0， 第 二 行 的 行 号 
为 1， 依 此 类 推 
SetDefaultTabOrder | “用 默认 的 自 上 向 下 和 自 左 向 右 的 Tab 键 顺序 来 为 窗 体 上 的 每 个 控 
件 设置 TabIndex 属性 
【语法 】 
object.SetDefaultTabOrder0) 
【参数 说 明 】 
无 参数 
SetFocus 将 焦点 移动 到 对 象 的 实例 中 
【语法 】 
object.SetFocus0 
【参数 说 明 】 
无 参数 
SetText 用 特定 的 格式 复制 文本 串 到 DataObject 
【语法 】 
‘object.SetText( StoreData [. formal]) 
【参数 说 明 】 


StoreData 必需 。 定 义 存储 在 DataObject 中 的 数据 。 
Jormat 可 选 。 整 数 或 字符 串 , 规定 StoreData 的 格式 。 从 DataObject 
中 检索 数据 时 ， 该 格式 标识 需 检索 的 数据 段 
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( 续 表 ) 
方法 名 称 描述 
UndoAction 取消 最 近 一 次 操作 (必须 是 支持 “撤销 ”命令 的 ) 
【语法 】 
Boolean = objecLUndoAction0 
【参数 说 明 】 
无 参数 
表 5-10 用 户 窗 体 和 控件 的 常用 事件 描述 
事件 名 称 描述 
Change 当 控件 的 Value 属性 改变 时 调用 
Click 用 户 在 控件 上 单 击 鼠 标 时 调用 
DblClick 用 户 在 控件 上 双击 鼠标 时 调用 
Enter 在 控件 获取 了 焦点 后 触发 
Exit 当 控 件 的 焦点 转移 到 其 他 控件 时 发 生 


表 5-8 中 Top，Left，Width 和 Height 都 是 以 磅 (Point) 为 单位 。Value 属性 的 具 
体 含义 与 控件 的 类 型 有 关 。 当 值 改变 时 ， 都 会 触发 Change 事件 ; 表 5-10 中 的 Click 
和 DblClick 事件 发 生 在 用 户 单 击 或 双击 鼠标 时 ， 一 般 来 说 ， 用 户 代码 往往 都 包含 在 
Click 事件 中 ， 例 如 下 拉 列 表 框 的 选择 ， 按 钮 的 点 击 等 。 

对 VBA 用 户 窗 体 中 控件 的 介绍 和 应 用 如 果 有 疑问 ， 可 以 将 控件 添加 到 用 户 窗 
体 ， 选 中 控件 ， 单 击 Fl 键 ， 将 显示 控件 的 帮助 文档 以 及 示例 。 

Excel 编程 中 要 经 常 使 用 的 一 个 特殊 控件 是 RefEdit 控件 ， 在 用 户 窗 体 上 ， 本 
控件 可 以 使 用 户 方便 地 在 一 张 或 多 张 工作 表 中 输入 或 选 定单 元 格 区 域 的 地 址 。 若 要 
选 定 某 个 区 域 ， 请 单 击 控件 中 的 按钮 以 折 且 用户 窗 体 ， 然 后 选 定 该 区 域 ， 再 单 击 控 
件 中 的 按钮 以 展开 用 户 窗 体 。 


5.7 Excel VBA 操作 Access 数据 库 


将 Excel VBA 作为 功能 前 端 , 而 将 Access 数据 库 作为 数据 存储 将 使 Excel 数据 
操作 的 强大 功能 发 挥 得 淋漓 尽 致 。 
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5.7.1 什么 是 ADO 


微软 公司 的 ADO (ActiveX Data Objects) 是 一 个 用 于 存 取 数据 源 的 COM 组 件 。 
它 提供 了 编程 语言 和 统一 数据 访问 方式 OLE DB 的 一 个 中 间 层 。 允许 开发 人 员 编 写 访 
问 数 据 的 代码 而 不 用 关心 数据 库 是 如 何 实现 的 ， 而 只 需 关 心 数据 库 的 连接 。 访 问 数据 
库 的 时 候 ， 关 于 SQL 的 知识 不 是 必要 的 ， 但 是 特定 数据 库 支 持 的 SQL 命令 仍 可 以 通 
过 ADO 中 的 命令 对 象 来 执行 。 ADO( 发 布 于 1996 年 冬 ) 是 为 了 继承 微软 早期 的 数据 访 
问 对 象 层 而 设计 的 ， 包 括 RDO (Remote Data Objects) 和 DAO(Data Access Objects) 。 


5.7.2 ADO 访问 Access 数据 库 基 础 知识 


1. ADO 的 基本 对 象 


(1) Connection 对 象 : 该 对 象 主要 是 开启 程序 和 数据 库 之 间 的 连接 。 如 果 没 有 
利用 连接 对 象 来 打开 数据 库 ， 是 无 法 从 数据 库 中 取得 数据 的 。 这 个 对 象 在 ADO 的 
最 底层 ， 我 们 可 以 自己 产生 这 个 对 象 ， 或 是 由 其 他 的 对 象 自动 产生 。 

(2) Command 对 象 : 该 对 象 主要 可 以 用 来 对 数据 库 发 出 一 些 指 令 ， 例 如 可 以 对 
数据 库 下 达 查 询 、 新 增 、 修 改 、 删 除数 据 等 指令 ， 以 及 呼叫 存在 数据 库 中 的 预存 程 
序 等 ,这 个 对 象 架构 在 Connection 对 象 上 ,也 就 是 说 Command 对 象 通过 Connection 
对 象 连接 到 数据 源 。 

(3) Recordset 对 象 : 该 对 象 表示 的 是 来 自 基本 表 或 命令 执行 结果 的 记录 全 集 。 
使 用 Recordset 对 象 可 以 操作 来 自 所 提供 程序 的 数据 ， 通 过 该 对 象 几 乎 可 以 对 所 有 
数据 进行 操作 。 所 有 Recordset 对 象 均 由 记录 ( 行 ) 和 字段 ( 列 ) 进 行 构造 。Recordset 对 
象 是 架构 在 Connection 对 象 和 Command 对 象 之 上 的 。 通 过 建立 及 开启 一 个 
Connection 对 象 ， 可 以 与 我 们 关心 的 数据 库 建 立 连接 : 通过 使 用 Command 对 象 ， 
则 可 以 告诉 数据 库 我 们 想 要 做 什么 一 一 是 插入 一 条 记录 , 还 是 查找 符合 条 件 的 记录 ; 
通过 使 用 Recordset 对 象 ， 则 可 以 方便 自如 地 操作 Command 对 象 返回 的 结果 。 

2. Recordset 对 象 的 属性 和 方法 介绍 


(1) Open 方法 ， 打 开 一 个 记录 集 对 象 。 

(2) Close 方法 ， 关 闭 一 个 记录 集 对 象 。 

(3) Update 方法 ， 保 存 记 录 集 到 目前 的 所 有 修改 。 

(4) BOF 属性 , 返回 逻辑 值 , TRUE 为 当前 操作 的 记录 的 位 置 在 记录 和 集 第 一 条 记 
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录 的 前 面 。 

(5) EOF 属性 , 返回 逻辑 值 ,TRUE 为 当前 操作 的 记录 的 位 置 在 记录 集 最 后 一 条 
记录 的 后 面 。 

(6) MoveFirst 方法 ， 将 记录 集中 的 第 一 条 记录 作为 当前 操作 的 记录 。 

(7) MoveLast 方法 ， 将 记录 集中 的 最 后 一 条 记录 作为 当前 操作 的 记录 。 

(8) MoveNext 方法 ， 将 记录 集 的 下 一 条 记录 作为 当前 操作 的 记录 。 

(9) MovePrevious 方法 ， 将 记录 集 的 上 一 条 记录 作为 当前 操作 的 记录 。 

(10) AddNew 方法 ， 创 建 一 条 新 的 空白 记录 ， 位 于 当前 记录 集 的 最 后 一 条 记录 
之 后 。 

(11) Delete 方法 ， 删 除 当前 操作 的 记录 ， 删 除 后， 当前 操作 记录 的 下 一 条 记录 
作为 当前 操作 的 记录 。 

(12) RecordCount 方法 ， 返 回 一 个 数字 ， 表 示 当 前 记录 集 的 记录 总 数 。 

3. 如 何在 Excel 中 应 用 ADO 对 象 


为 了 使 用 ADO 对 象 , 必须 在 Excel 中 引用 几 个 项 目 (在 VBA 编辑 器 窗口 中 , 使 
用 “工具 ”菜单 下 的 “引用 ”选项 )。 

(1) MICROSOFT ADO EXT2.8 FOR DDL AND SECURITY 

(2) MICROSOFT ACTIVE DATA OBJECTS(MULTI-DIMENSIONAL)?2.8 LIBRARY 

(3) MICROSOFT ACTIVE DATA OBJECTS RECORDSET 2.8 LIBRARY 

(4) MICROSOFT ACTIVE DATA OBJECTS 2.8 LIBRARY 

(5) MICROSOFT JET AND REPLICATION OBJECTS 2.6 LIBRARY 


国教 学 提示 图 

(1) 由 于 计算 机 安装 的 Excel 和 Access 的 版 本 有 一 些 不 同 ， 以 上 项 目的 具体 版 
本 (项 目 里 面 的 那个 数字 ， 这 里 是 2.8) 可 能 有 差异 ， 选 择 的 时 候 ， 尽 量 选择 版 本 最 高 
的 那个 ， 而 且 尽量 保持 所 有 项 目的 版 本 编号 一 致 ( 即 如 果 选 择 了 2.8， 就 大 部 分 的 项 
目 都 是 2.8)。 

(2) 如 果 计 算 机 的 操作 系统 中 没有 安装 Microsoft Data Access Components 2.0 组 
件 程序 ， 将 导致 ADO 的 部 分 功能 出 现 异 常情 况 ， 安 装 相应 的 补丁 程序 将 修复 这 个 
问题 。 该 补丁 已 经 放 入 本 书 的 配套 课件 中 (在 “实验 6.4” 文 件 夹 下 )， 相 关 课 件 下 载 
请 登录 http://www.tupwk.com.cn。 
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5.7.3 ”向 Access 数据 库 中 添加 数据 


这 里 假设 已 经 建立 好 了 一 个 用 户 窗 体 ， 用 于 输入 学 生 信息 。 为 了 使 调用 Access 
数据 库 尽 可 能 地 简单 ， 需 要 有 一 系列 代码 负责 处 理 到 该 数据 库 的 ADO 连接 。 

在 定义 好 ADO 连接 后 ， 通 过 以 下 步骤 添加 记录 : 

(1) 打开 指向 准备 添加 记录 的 表格 的 记录 集 。 

(2) 利用 AddNew 方法 添加 个 新 的 记录 。 

(3) 更 新 新 记录 中 的 各 个 字段 。 

(4) 利用 Update 更 新 记录 集 。 

(5) 关闭 记录 集 ， 并 断 开 ADO 连接 。 

下 列 代 码 在 单 击 名 为 “添加 ”的 按钮 时 向 Student 表 (Student 表 字 段 : ID, Name， 
Gender, Birthday) 中 添加 一 条 新 的 数据 。 


1 Sub CommandButtonl Click () 

2 Dim con Rs RDODB.Connection 

3 Dim rst Rs RDODB.Recordset 

4 

了 MyConn = "D:\Student.mdb" 

6 

7 "打开 链接 

8 Set con = New ADODB.Connection 

9 With con 

10 .Provider = "Microsoft.ACE.OLEDB.12.0" 
bp .Open MyConn 

12 End With 

13 

14 "定义 记录 Recordset 

15 Set rst = New ADODB.Recordset 

16 rst.CursorLocation = adUseServer 
| 

18 "打开 数据 表 

19 rst.Open Source := "Student", _ 
20 ActiveConnection := con, _ 

21 CursorType := adopenDynamic, _ 
2 LockType := adLockOptimistic, _ 
23 Options := adCmdTable 
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24 

25 "新 增 一 条 数据 

26 rst.AddNew 

2 rst("ID") = "001" 
28 rst ("Name") = " 张 辉 " 
29 rst("Gender") = " 男 " 
30 rst ("Birthday") = "1987-07-10" 
31 

32 "保存 数据 

33 rst.Update 

34 

35 "关闭 

36 rst.Close 

37 con.Close 

38 

39 End Sub 

国教 学 提示 图 


不 同 版 本 的 Access， 其 数据 库 驱 动 程序 不 同 ， 如 Access 2003 的 驱动 程序 是 


Microsoft.Jet.OLEDB.4.0. 


5.7.4 ”从 Access 数据 库 中 检索 数据 


从 Access 数据 库 读 取 记 录 十 分 简单 。 在 定义 记录 集 时 ， 可 以 传递 一 个 SQL 字 


符 串 ， 返 回 指定 条 件 的 记录 集 。 


在 得 到 记录 集 后 ， 可 以 使 用 CopyFromRecordSet 将 所 有 匹配 的 记录 从 Access 


复制 到 工作 表 的 指定 区 域 。 


下 列 代码 将 访问 Student 表 ， 找 到 所 有 性 别 为 “ 男 ” 的 记录 。 查 找 结果 放 到 一 
张 空白 的 Excel 工作 表 中 。 最 后 几 行 代码 指定 在 一 个 用 户 窗 体 中 显示 如 下 结果 。 


Sub GetStudents () 
Dim con As ADODB.Connection 
Dim rst As ADODB.Recordset 
Dim WSOrig As Worksheet 
Dim WSTemp Rs Worksheet 


mo ww 


Dim ssQL As String 
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Dim FinalRow As Long 


Set WSOrig = ActiveSheet 


"定义 SQL 语句 
SSQL = "select ID, Name, Gender, Birthday from Student where 
Gender=' 男 '" 


MyConn = "D:\Student.mdb" 


"打开 链接 

Set con = New ADODB.Connection 

With con 
"Provider = "Microsoft.ACE.OLEDB.12.0" 
.Open MyConn 

End With 


' 定 义 记录 Recordset 
Set rst = New ADODB.Recordset 


rst.CursorLocation = adUseServer 


"打开 数据 表 

Rst.Open Source := sSQL, _ 
ActiveConnection := con, _ 
CursorType := adOopenDynamic, _ 


LockType := adLockOptimistic, _ 
Options := adCmdText 


"新 增 工作 表 
Set WSTemp = Worksheets.Add 


"在 工作 表 中 加 入 数据 标题 
Range ("Al:D1") .Value = Array("ID"," Name"," Gender"," 
Birthday") 


' 将 检索 结果 插入 工作 表 第 2 行 


Range ("A2") .CopyFromRecordset rst 
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43 "关闭 

44 rst.Close 

45 con.Close 

46 

47 FinalRow = Range ("A65536") .End (xlUp) .Row 
48 

49 IE FinalRow = 1 Then 

50 Application.DisplayAlerts = False 
51 WSTemp .Delete 

52 Application.DisplayAlerts = True 
53 WSOrig.Activate 

54 MsgBox "无 数据 " 

55 Exit Sub 

56 End If 

57 

58 Range ("D2:D" & FinalRow) .NumberFormat = "m/d/y" 
59 frmTransConf.Show 

60 

61 Application.DisplayAlerts = False 

62 WSTemp .Delete 

63 Application.DisplayAlerts = True 

64 

65 End Sub 


这 里 的 CopyFromRecordset 方法 把 匹配 SQL 查询 的 记录 复制 到 工作 表 的 某 一 
区 域 。 可 以 看 到 ， 这 里 只 返回 数据 行 。 标 题 并 不 自动 跟着 过 来 。 必 须 使 用 代码 将 标 
题写 到 第 一 行 。 


5.7.5 ”从 Access 数据 库 中 修改 数据 


想 要 修改 现 有 记录 ， 需 要 建立 只 有 一 条 记录 的 记录 集 。 打 开 此 记录 集 后 ， 使 用 
Fields 属性 修改 需要 修改 的 字段 ， 然 后 使 用 Update 方法 提交 对 数据 库 的 更 改 。 


1 Sub CommandButton] Click () 
Dim con As ADODB.Connection 


Dim rst As ADODB.Recordset 
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4 

5 MyConn = "D:\Student.-mdb" 

6 

7 "打开 链接 

8 Set con = New ADODB.Connection 

9 With con 

10 .Provider = "Microsoft.ACE.OLEDB.12.0" 
.Open MyConn 

12 End With 

13 

14 ' 定 义 记录 Recordset 

15 Set rst = New ADODB.Recordset 

16 rst.CursorLocation = adUseServer 

18 "定义 SQL 语句 

19 Dim sSQL As String 
20 SSQL = "select ID, Name, Gender, Birthday from Student where 

ID="001’" 

21 

22 "将 学 号 为 001 的 学 生性 别 改 为 “ 女 ” 

3 With rst 

24 .Open Source := sSQL, ActiveConnection := con, _ 
| CursorType := adOopenDynamic, LockType := adLockOptimistic 
26 .Fields ("Gender") .Value = " 女 " 

mk .Update 

28 .Close 

2 End With 

30 

3 "关闭 

32 rst.Close 

33 con.Close 

34 

35 End Sub 
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5.7.6 从 Access 数据 库 中 删除 数据 


与 更 改 记 录 相 似 ， 只 需 修 改 一 下 SQL 语句 即 可 ， 下 面 的 代码 使 用 Execute 方法 
将 Delete 命令 传递 到 Access。 


Sub DeleteRow () 
MyConn = "D:\Student.mdb" 


' 链 接 数 据 库 并 删除 编号 为 001 的 学 生 数 据 
With ADODB.Connection 
-Provider = "Microsoft.ACE.OLEDB.12.0" 
.Open MyConn 
.Excute "Delete From Student Where ID ="'001'" 


ownamnmoweewnb HP 


.Close 
End With 


FF 
ID HP 口 


End Sub 


S.8 复习 思考 题 


(1) 简 述 With 语句 的 用 途 。 

(2) 简 述 On Error Resume Next 语句 的 作用 。 

(3) 简 述 For/Next 语句 的 作用 。 

(4) 简 述 If/Then/Else/ElseIf/EndIf 语 句 的 作用 。 

(5) 简 述 Select Case/Case Value/End Select 语句 的 作用 。 


2. 判断 题 


(1) 当 在 Visual Basic 的 模块 中 为 过 程 、 常 数 、 变 量 以 及 参数 命名 时 ， 第 一 个 
字符 必须 使 用 英文 字母 。(。 ) 

(2) 当 在 Visual Basic 的 模块 中 为 过 程 、 常 数 、 变 量 以 及 参数 命名 时 ， 需 要 区 
分 大 小 写 。( ) 
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(3) 全 局 变量 的 作用 范围 最 大 ， 所 以 应 该 尽量 使 用 全 局 变量 。( ) 
(4) Excel 连接 数据 库 必 须 通过 ADO 方式 。( ) 
(5) 利用 ADO 对 象 ， 我 们 可 以 通过 SQL 语句 操作 数据 库 。( ) 


3. 单项 选择 题 


(1) Excel 中 行 对 象 的 集合 为 。 

A. Cells B. Rows C. Balls D. Rangs 
(2) Excel VBA 定义 全 局 变量 ， 需 要 在 处 定义 。 

A. 模块 B. 窗口 C. 程序 D. 类 模块 
(3) 能 够 与 正 语句 完全 互 换 的 语句 是 5 

A. Select Case B. For Next C.Do loop D. Do Until 
(4) 能 够 强行 退出 循环 程序 的 关键 字 是 。 

A. Back B. Return C. Close D. Exit 
(5) Recordset 对 象 采用 保存 数据 到 数据 库 。 

A. Update B. Save C. Execute D. Close 
4. 多 项 选择 题 
(1) 每 一 个 Excel 文件 ， 对 应 的 VBA 工程 都 有 4 类 对 象 ， 包 括 s 

A. Microsoft Excel 对 象 B. 窗 体 C. 模块 D. 类 模块 
(2) 按 作用 的 范围 来 区 分 ， 变 量 可 以 分 为 。 

A. 全 局 变量 B. 窗 体 变量 C. 模块 变量 。 D. 局 部 变量 
(3) 控件 工具 箱 中 的 常用 控件 有 

A. 标签 B. 文本 框 C. 命令 按钮 。” D. DTP 控件 
(4) ADO 的 基本 对 象 有 5 

A. Connection B. Command C. Recordset D. Data 
(5) Recordset 对 象 有 方法 。 

A. Open B. Close C. Movefirst D. Movenext 


5. 程序 设计 题 


(D 循环 语句 的 使 用 ， 要求 : 用 一 段 VBA 代码 实现 在 Al:A20 单元 格 中 填 入 从 
1 到 20 自动 递增 的 数值 。 
(2) 输入 下 图 中 的 数据 ， 并 实现 图 中 两 个 按钮 的 功能 。 
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第 6 章 
使 用 Excel VBA 建 立 财务 管理 
模型 


6.1 时 间 价 值 计算 模 型 


最 直观 体现 时 间 价 值 的 是 货币 时 间 价 值 ， 即 目前 拥有 的 货币 比 未 来 收 到 的 同样 
金额 的 货币 具有 更 大 的 价值 ， 因 为 目前 拥有 的 货币 可 以 进行 投资 ， 在 目前 到 未 来 这 
段 时 间 里 获得 复 利 。 从 经 济 学 的 角度 而 言 ， 现 在 的 一 单位 货币 与 未 来 的 一 单位 货币 
的 购买 力 之 所 以 不 同 ， 是 因为 要 节省 现在 的 一 单位 货币 不 消费 而 改 在 未 来 消费 ， 则 
在 未 来 消费 时 必须 有 大 于 一 单位 的 货币 可 供 消费 ， 作 为 延迟 消费 的 弥补 。 


6.1.1 实验 目的 


(1) 熟悉 Excel VBA 程序 设计 环境 。 

(2) 了 解 用 户 窗 体 的 创建 。 

(3) 了 解 对 象 属性 的 设计 。 

(4) 了 解 时 间 价 值 函数 的 使 用 。 

(5) 了 解 Excel VBA 程序 编写 的 基本 方法 。 


6.1.2 ”实验 内 容 
建立 时 间 价值 计算 模型 ， 该 模型 在 用 户 给 定金 额 、 期 限 、 年 利率 、 计 息 次 数 以 


及 计 息 时 间 ( 期 初 或 期 末 ) 等 信息 后 ， 能 够 计算 一 笔 资金 的 复 利 终 值 或 现 值 、 普 通 年 
金 或 先 付 年 金 的 终 值 与 现 值 等 。 


做 财务 管理 数据 处 理 技术 一 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


6.1.3 ”实验 步骤 


(1) 建立 一 个 新 的 工作 筹 ， 选 择 Sheetl 来 设计 模型 显示 格式 ， 如 图 6-1 所 示 。 


年 利率 《 
年 计 息 次 数 (次 ) 
计 息 时 间 


a 
洁 
泻 再 
TAN 
和 
b= 


中 


计算 结 
10 最 后 的 结果 是 : 
11 


6-1 模型 显示 界面 
(2) 选择 单元 格 B5， 右 击 选择 “设置 单元 格格 式 ” 命 令 ， 在 “设置 单元 格格 式 ” 


窗口 的 “数字 ”选项 卡 中 选择 “百分比 ”项 目 ， 并 设 定 小 数位 数 为 2 位 ， 如 图 6-2 
所 示 。 


已 
金额 或 年 金 (元 ) 
期 限 (年) 


E53 对 弄 
年 利率 (%》 Cs*o 
年 计 息 次 数 〈 次 ) 第 机 
计 息 时 间 加 


名 小 数位 数 Q): [2 疯 
Et 


最 后 的 结果 是 ， 
和 


3 
定义 


百分比 格式 格 单元 格 中 数值 药 以 100 ,并 以 百分数 形式 里 示 。 


图 6-2 设置 百分比 格式 


(3) 重复 2 的 方法 ， 选 择 单元 格 B10， 将 其 单元 格格 式 设置 为 “数值 ”， 并 设 
定 其 小 数位 数 为 2 位 ， 如 图 6-3 所 示 。 
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己 知 数 
金额 或 年 金 (元 ) 


年 利率 (%》 
年 计 息 次 数 次 ) 
计 息 时 间 


数值 格式 用 于 一 般 数字 的 表示 。 货 币 和 会 计 格式 则 提供 货币 值 计 算 的 专用 格式 . 


图 6-3 设置 数字 小 数位 数 
(4) 单 击 Excel 左上 角 的 Office 按钮 是 , 在 出 现 的 菜单 界面 中 , 选择 右 下 角 的 按 
钮 seeissoj， 出 现 “Excel 选项 ”窗口 。 选 择 “ 常 用 ”选项 卡 中 的 “在 功能 区 显示 
“开发 工具 ”选项 卡 ” 选 项 后 ， 单 击 “ 确 定 ” 按 钮 ， 如 图 6-4 所 示 。 


Exzcel 选项 
I 站 
: 闻 要 Excel 中 最 第 用 的 选项 . 


使 用 Excel 时 采用 的 首选 项 
回 选择 时 显示 浮动 工具 栏 (M) 


图 6-4 设置 开发 工具 选项 卡 


国 实 验 提示 国 
步骤 (4) 将 在 Excel 2007 中 打开 “开发 工具 ”选项 卡 ， 如 图 6-5 所 示 。 如果 Excel 
2007 中 已 经 有 了 该 选项 卡 ， 可 以 跳 过 该 步骤 。 
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图 6-5 开发 工具 基本 功能 


(5) 单 击 “ 开 发 工具 ”选项 卡 ， 选 择 插入 一 个 表单 控件 的 命令 按钮 对 象 ， 如 图 
6-6 所 示 。 


图 6-6 开发 工具 中 的 基本 控件 


(6) 调整 该 命令 按钮 的 长 度 和 宽度 ， 以 及 其 放置 在 窗 体 上 的 位 置 ， 并 编辑 其 文 
字 为 “开始 计算 ”， 和 暂时 不 指定 其 运行 的 宏 程序 ， 如 图 6-7 所 示 。 


6-7 插入 一 个 命令 按钮 


(7) 按 AltrF11 键 进 入 VBA 程序 设计 环境 , 选择 “插入 ”菜单 下 的 “用 户 窗 体 ” 
命令 ， 建 立 一 个 窗 体 对 象 ， 并 适当 调整 其 大 小 。 
(8) 选择 该 窗口 ， 右 击 选择 “属性 ”命令 ， 将 出 现 “ 属 性 ”窗口 ， 修 改 其 中 的 
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Caption 属性 值 为 “ 终 值 现 值 计 算 模型 ”， 如 图 6-8 所 示 。 
2 Tereieet 日 


已 加 :从 值 现 值 计算 重型 


图 6-8 用 户 窗 体 基本 格式 
(9) 选择 “工具 箱 ” 中 的 “框架 ”对 象 四， 在 窗 体 上 放置 3 个 框架 ， 修 改 3 个 


框架 的 Caption 属性 分 别 为 “已 知 数 据 区 域 ”、“ 计 算 选 择 区 域 ” 和 “命令 区 域 ”， 
并 且 调 整 窗 体 和 框架 的 大 小 和 位 置 ， 如 图 6-9 所 示 。 


现 值 计算 模型 


图 6-9 设置 框架 对 象 
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国 实 验 提示 国 

如 果 没 有 “工具 箱 ”， 可 以 选择 “视图 ”菜单 下 的 “工具 箱 ” 菜 单 来 打开 “ 工 
具 箱 ”对 象 。 

(10) 选择 “工具 箱 ” 中 的 “标签 ”对 象 网， 在 窗 体 上 放置 5 个 标签 ， 修 改 这 些 
对 象 的 Caption 属性 分 别 为 “金额 或 年 金 (元 )”、“ 期 限 (年 )”、“ 年 利率 (%)”、 
“年 计 息 次 数 ” 和 “ 计 息 时 间 ”， 并 且 调 整 它们 的 大 小 和 位 置 ， 如 图 6-10 所 示 。 


终 值 现 值 计算 模型 


图 6-10 设置 标签 对 象 


(11) 选择 “工具 箱 ” 中 的 “文本 框 ” 对 象 面 ， 在 窗 体 上 放置 4 个 文本 框 ， 文 本 
框 1 对 应 金额 , 文本 框 2 对 应 期 限 , 文本 框 3 对 应 年 利率 , 文本 框 4 对 应 计 息 次 数 。 
调整 它们 的 大 小 和 位 置 ， 如 图 6-11 所 示 。 


A 
余 值 现 值 计算 模型 


6-11 设置 文本 框 对象 
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(12) 选择 “工具 箱 ” 中 的 “旋转 按钮 ”对 象 剧 ， 在 窗 体 上 文本 框 4 的 后 面 放 置 
一 个 旋转 按钮 。 调 整 它 的 大 小 和 位 置 ， 如 图 6-12 所 示 。 


终 值 现 值 计算 种 型 


图 6-12 设置 旋转 按钮 对 象 


(13) 选择 “工具 箱 ” 中 的 “选项 按钮 ”对 象 回 ， 在 窗 体 上 放置 8 个 选项 按钮 ， 
其 中 选项 按钮 1 和 2 放置 到 框架 1 中 ， 其 余 选 项 按钮 全 部 放置 到 框架 2 中 。 修 改选 
项 按钮 1 到 8 的 Caption 属性 依次 为 “期 初 ”、“ 期 末 ”、“ 复 利 终 值 ”、“ 复 利 
现 值 ”、“ 普 通 年 金 终 值 ”、“ 先 付 年 金 终 值 ”、“ 普 通 年 金 现 值 ” 和 “ 先 付 年 金 
现 值 ”， 同 时 调整 它们 的 大 小 和 位 置 ， 如 图 6-13 所 示 。 


图 6-13 设置 单 选 按钮 对 象 
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(14) 选择 “工具 箱 ” 中 的 “命令 按钮 ”对 象 国 ， 在 窗 体 框架 3 中 放置 3 个 命令 
按钮 。 修 改 命令 按钮 1 到 3 的 Caption 属性 依次 为 “计算 ”、“ 清 除 表格 ”和 “ 退 
出 ”， 同 时 调整 它们 的 大 小 和 位 置 ， 如 图 6-14 所 示 。 


6-14 设置 命令 按钮 对 象 


(15) 修改 窗 体 的 Caption 属性 为 “时 间 价 值 ”， 以 及 设置 “旋转 按钮 ”对 象 的 
Min 属性 和 Max 属性 分 别 为 1 和 6, 并 进一步 调整 各 个 对 象 的 大 小 和 位 置 ,如 图 6-15 
所 示 。 

终 值 现 值 计算 模型 
Sheet! (Sheet1) EY 


“有 虽 
-图 Sheet2 (Sheet2) 
“图 Sheet3 (heet3) 


图 6-15 模型 窗 体 界面 
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(16) 双击 窗 体 , 进入 程序 编写 窗口 , 选择 窗 体 的 Initialize 事件 , 编写 程序 如 下 : 


Private Sub UserForm Initialize() 


"本 事件 在 窗 体 创建 的 时 候 将 被 触发 


' 本 段 程序 实现 的 功能 是 当 窗 体 出 现 的 时 候 ， 期 初期 末 单 选 按钮 可 用 ; 年 计 息 次 数 框 的 值 来 
自 旋转 按钮 的 值 ， 其 本 身 不 能 直接 输入 ; 期 初 和 复 利 现 值 单 选 按钮 被 默认 选中 。 


OptionButton]l.Enabled = True 
OptionButton2.Enabled = True 
TextBox4.Enabled = False 


OptionButtonl .Value 
OptionButton3.Value 


True 
True 


TextBox4.Value = SpinButton]l .Value 


End Sub 


(17) 分 别 选择 选项 按钮 3 到 选项 按钮 8 的 Click 事件 ， 编 写 程序 如 下 : 


'" 复 利 现 值 和 复 利 终 值 单 选 按钮 选中 的 时 候 ， 确 保 期 初 和 期 末 单 选 按钮 可 用 。 


Private Sub OptionButton3 Click() 
OptionButtonl .Enabled = True 
OptionButton2.Enabled = True 


End Sub 


Private Sub OptionButton4 Click() 
OptionButtonl .Enabled = True 
OptionButton2.Enabled = True 


End Sub 


"年 金 的 选项 本 身 就 区 分 期 初 和 期 林 ， 所 以 当选 中 有 关 年 金 的 单 选 按钮 时 ， 将 期 初 和 期 末 单 


选 按钮 设置 为 不 可 用 。 


Private Sub OptionButton5 Click() 
OptionButtonl.Enabled = False 
OptionButton2.Enabled = False 


End Sub 


Private Sub OptionButton6 Click() 
OptionButtonl.Enabled = False 
OptionButton2.Enabled = False 


End Sub 
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Private Sub OptionButton7 Click() 
OptionButton1l.Enabled = False 
OptionButton2.Enabled = False 

End Sub 


Private Sub OptionButton8 Click() 
OptionButton]l .Enabled = False 
OptionButton2.Enabled = False 

End Sub 


(18) 选择 旋转 按钮 的 Change 事件 ， 编 写 程序 如 下 : 
' 当 旋转 按钮 的 值 改变 的 时 候 ， 同 时 改变 计 息 次 数 文本 框 的 值 


Private Sub SpinButtonl Change() 
TextBox4.Value = SpinButton]l .Value 
End Sub 


(19) 分 别 选择 选项 文本 框 1 到 3 的 Exit 事件 ， 编 写 程序 如 下 : 


' 当 在 文本 框 1 中 输入 数据 退出 时 ， 将 进行 数据 的 校 验 ， 如 果 输 入 的 数据 不 是 数字 或 者 为 0 
的 话 ， 将 进行 提示 ， 并 让 焦点 返回 文本 框 1， 重 新 输入 。 


Private Sub TextBox1l_Exit (ByVal Cancel Rs MSForms .ReturnBoolean) 
IE IsSNumeric (TextBoxl.Value) = False Then 
MsgBox "请 在 金额 中 输入 数字 " 
TextBox1.SetFocus 
Cancel = True ' 将 参数 Cancel 设置 为 TRUE， 将 放弃 文本 框 的 退出 操作 。 
Else 
If Val (TextBoxl.Value) = 0 Then 
MsgBox "金额 必须 大 于 零 " 
TextBoxl1 .SetFocus 
Cancel = True 
End If 
End If 
End Sub 


' 当 在 文本 框 2 中 输入 数据 退出 时 ， 将 进行 数据 的 校 验 ， 如 果 输 入 的 数据 不 是 数字 或 者 为 0 
的 话 ， 将 进行 提示 ， 并 让 焦点 返回 文本 框 2， 重 新 输入 ; 否则 将 输入 数据 保留 整数 后 ， 焦 点 离开 
文本 框 2。 

Private Sub TextBox2 Exit(ByVal Cancel As MSForms.ReturnBoolean) 
IE IsNumeric (TextBox2.Value) = False Then 


MsgBox "请 在 期 限 中 输入 整数 " 
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TextBox2.SetFocus 
Cancel = True 
Else 
If Val (TextBox2.Value) = 0 Then 
MsgBox "期 限 必 须 大 于 零 " 
TextBox2.SetFocus 
Cancel = True 
Else 
TextBox2.Value = Int (Val (TextBox2.Value) ) ' 利 用 整数 函数 ， 
实现 数字 保留 整数 功能 
End If 
End If 
End Sub 


' 当 在 文本 框 3 中 输入 数据 退出 时 ， 将 进行 数据 的 校 验 ， 如 果 输 入 的 数据 不 是 数字 或 者 为 0 
的 话 ， 将 进行 提示 ， 并 让 焦点 返回 文本 框 3， 重 新 输入 。 


Private Sub TextBox3 Exit(ByVal Cancel As MSForms .ReturnBoolean) 
Dim 年 利率 As Double 
IE IsNumeric(TextBox3.Value) = False Then 
MsgBox "请 在 年 利率 中 输入 数字 " 
TextBox3.SetFocus 
Cancel = True 
Else 
If Val (TextBox3.Value) = 0 Then 
MsgBox "年 利率 必须 大 于 零 " 
TextBox3.SetFocus 
Cancel = True 
End If 
End If 
End Sub 


(20) 选择 命令 按钮 1 的 Click 事件 ， 编 写 程序 如 下 : 


Private Sub CommandButtonl Click() 
"定义 变量 
Dim 金额 As Double 
Dim 期 限 As Integer 
Dim 年 利率 As Double 
Dim 年 计 息 次 数 As Integer 
Dim 计 息 时 间 As Integer 
Dim 计算 结果 As Double 
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"为 变量 赋值 


If TextBoxl.Value = "" Then 
MsgBox "请 在 金额 中 输入 数字 " 


TextBoxl.SetFocus 


Exit Sub 
Else 

金额 = Val (TextBoxl .Value) 
End If 


If TextBox2.Value = "" Then 
MsgBox "请 在 期 限 中 输入 数字 " 


TextBox2.SetFocus 


Exit Sub 
Else 

期 限 = Int (Val (TextBox2.Value)) 
End If 


If TextBox3.Value = "" Then 
MsgBox "请 在 年 利率 中 输入 数字 " 
TextBox3.SetFocus 
Exit Sub 

Else 
If Val (TextBox3.Value) > 1 Then 

年 利率 = Val (TextBox3.Value) / 100 
Else 

年 利率 = Val (TextBox3.Value) 
End If 

End If 

年 计 息 次 数 = Val (TextBox4.Value) 

' 在 Excel 表单 中 的 对 应 单元 格 放 入 基本 数据 

Sheets ("SHEET1") .Select 

Cells (3，2) = 金额 


Cells (4，2) = 期 限 
Cells (5，2) = 年 利率 
Cells (6，2) = 年 计 息 次 数 


"根据 期 初期 末 单 选 按钮 的 选择 ， 确 定 公式 中 的 TYPE 参数 的 值 。 


IE OptionButtonl.Value = True Then 


计 息 时 间 = 1 

cells(7，2) = "期 初 " 
Else 

计 息 时 间 = 0 

Cells (7，2) = "期 末 " 
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End If 
计算 结果 = 0 


"依据 选择 的 不 同 计算 方式 ， 用 不 同 的 函数 以 及 赋予 函数 不 同 的 参数 来 进行 计算 。 


If OptionButton3.Value = True Then 
计算 结果 = FV (年 利率 / 年 计 息 次 数 ， 年 计 息 次 数 * 期 限 ，0，- 金 额 ， 计 息 时 间 ) 
Else 
IE OptionButton4.Value = True Then 
计算 结果 = PV (年 利率 / 年 计 息 次 数 ， 年 计 息 次 数 * 期 限 ，0，- 金 额 , 计 
息 时 间 ) 
Else 
If OptionButton5.Value = True Then 
计算 结果 = FV (年 利率 / 年 计 息 次 数 ， 年 计 息 次 数 * 期 限 ，- 人 金额 ) 
Else 
If OptionButton6.Value = True Then 
计算 结果 = FV (年 利率 / 年 计 息 次 数 ， 年 计 息 次 数 * 期 限 ，- 金 额 ，0，1) 
Else 
If OptionButton7.Value = True Then 
计算 结果 = PV (年 利率 / 年 计 息 次 数 ， 年 计 息 次 数 * 期 限 ，- 人 金额 ) 
Else 
计算 结果 = PV (年 利率 / 年 计 息 次 数 ， 年 计 息 次 数 * 期 限 ，- 金 额 ， 
0 1) 
End If 
End If 
End If 
End If 
End If 
Cells (10，2) = 计算 结果 
End Sub 


(21) 选择 命令 按钮 2 的 Click 事件 ， 编 写 程序 如 下 : 


Private Sub CommandButton2 Click() 

Sheets ("sheetl1") .Select 

Range ("b3:b7") .ClearContents “清除 单元 区 域 的 内 容 ， 但 不 清除 设置 好 的 
单元 格格 式 

Cells (10，2) .ClearContents 
End Sub 


(22) 选择 命令 按钮 3 的 MouseDown 事件 ， 编 写 程序 如 下 : 
Private Sub CommandButton3 MouseDown (ByVal ButtonRs Integer, ByVal 


*。193。 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


Shift As Integer, ByVal X As Single, ByVal Y As Single) 
TextBoxl.Value = "1" 
TextBox2.Value = "1" 
TextBox3.Value = "1" 
End Sub 


国 实 验 提示 国 

由 于 前 面 的 文本 框 退 出 事件 中 编写 了 校 验 程序 ， 不 允许 文本 框 内 容 为 空 和 0， 
当 关 闭 本 窗口 的 时 候 ， 将 触发 这 些 事件 ， 为 避免 因为 为 空 和 0 而 无 法 关闭 窗口 ， 所 
以 ， 关 闭 窗 口 前 将 所 有 的 文本 框 设 置 一 个 基本 内 容 。 


(23) 选择 命令 按钮 3 的 Click 事件 ， 编 写 程序 如 下 : 


Private Sub CommandButton3 Click() 
Unload Me 
End 

End Sub 


(24) 选择 “插入 ”菜单 下 的 “模块 ”命令 ， 加 入 一 个 模块 ， 双 击 该 模块 后 编写 
-个 名 称 为 “调用 窗 体 ”的 过 程 ， 如 图 6-16 所 示 。 


图 

国 shertz Ghertz) 
Shest3 [Sheet3) 
Thisyoribook 


所 合 窗 休 

国 时 间 价值 
日 全 模块 

只 模块 1 


图 6-16 窗口 调用 子 程序 代码 


(25) 通过 指定 宏 功 能 ， 将 “调用 窗 体 ” 过 程 指定 到 Sheet 1 上 的 命令 按钮 “ 开 
始 计算 ”， 如 图 6-17 所 示 。 


图 6-17 指定 宏 菜单 
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6.1.4 实验 效果 


(1) 单 击 “ 开 始 计算 ”按钮 ， 在 “ 终 值 现 值 计算 模型 ”中 输入 金额 、 期 限 、 年 
利率 、 计 息 次 数 、 计 息 时 间 以 及 选择 好 计算 的 目标 ， 如 图 6-18 所 示 。 


终 值 现 值 计算 模型 


一 计算 选择 区 域 一 一 一 
个 复 利 终 值 


个 复 利 现 值 

个 普通 年 全 终 值 
个 先 付 年 金 终 值 
个 普通 年 金 现 值 
个 先 付 年 金 现 值 


图 6-18 数据 输入 界面 设计 


(2) 单 击 “计算 ”按钮 ， 将 在 Excel 电子 表单 上 出 现 计算 结果 ， 如 图 6-19 所 示 。 


一 C 知 数据 
金额 或 年 金 (元 ) 200000 
期 限 (年 7 10 
年 利率 (%》 5. 32% 


年 计 息 次 数 (次 ) 
计 息 时 间 


335876. 59 


图 6-19 计算 结果 显示 效果 
(3) 单 击 “清除 表格 ”按钮 ， 清 除 计算 结果 ， 如 图 6-20 所 示 。 


己 : 
金额 或 年 金 (元 ) 
期 限 ( 年 ) 


年 利率 (%》 
年 计 息 次 数 〈 次 ) 
计 息 时 间 
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6.2 长 期 借款 敏感 性 分 析 模 型 


敏感 性 分 析 是 通过 分 析 、 预 测 项 目 主要 影响 因素 发 生变 化 时 对 项 目 经 济 评价 指标 
(如 NPV、IRR 等 ) 的 影响 ， 从 中 找 出 敏感 因素 ， 并 确定 其 影响 程度 的 一 种 分 析 方 法 。 


6.2.1 实验 目的 


(1) 进一步 熟悉 和 掌握 各 种 对 象 的 属性 、 事 件 和 方法 。 
(2) 进一步 熟悉 各 种 程序 设计 技巧 。 
(3) 熟悉 Excel VBA 中 图 形 绘制 的 方法 。 


6.2.2 实验 内 容 


企业 出 于 投资 的 需要 ， 其 借款 金额 和 时 间 是 基本 不 变 的 。 在 企业 取得 的 借款 为 
浮动 利率 借款 的 情况 下 ， 借 款 利率 可 能 会 随 着 市 场 环境 的 变化 而 发 生变 化 ， 企 业 需 
要 了 解 借款 利率 变化 后 企业 各 年 的 偿还 本 金 和 支付 利息 的 变化 情况 。 

通过 Excel， 建 立 长 期 借款 敏感 性 分 析 模 型 ， 该 模型 通过 用 户 提供 的 借款 金额 、 
借款 年 限 、 基 准 利率 、 年 付 息 次 数 、 变 化 的 利率 等 数据 ， 计 算 分 析 基 准 利率 和 变化 
利率 下 每 期 偿还 的 本 金 和 利息 ， 并 绘制 图 表 显 示 相 应 的 信息 。 


6.2.3 ”实验 步骤 


(1) 建立 一 个 新 的 工作 筹 ， 进行 模型 基本 信息 显示 界面 的 设计 , 如 图 6-21 所 示 。 


敏 尺 性 分 机 模 型 


2 
己 知 数据 
4 借款 痢 (元 ) 

5 

6 


基准 期 限 〈 年 7 

基准 利率 (%) 0. 00% 
7 年 付 息 次 数 
8 
9 变化 后 的 利率 0. 00% 


10 
11 | 计算 分 析 过 程 
12| 期 次 
13| 基准 利率 
141 各 期 支付 利息 人 和 
15 
16 ”各 期 偿还 本 金 。 变化 利率 
图 6-21 模型 基本 界面 
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(2) 选择 单元 格 B5， 右 击 选择 “设置 单元 格格 格式 ”命令 ， 在 “设置 单元 格格 
式 ” 窗 口中 ， 选 择 “ 数 字 ” 选 项 卡 中 的 “ 自 定义 ”分 类 ， 在 类 型 中 选择 “0” 后 单 击 
“确定 ”按钮 ， 如 图 6-22 所 示 。 


图 6-22 自 定义 格式 设置 


国 实 验 提示 图 
选择 该 类 型 后 ， 该 单元 格 中 只 能 输入 整数 ， 小 数 将 按照 四 全 五 入 的 方式 进行 
处 理 。 


(3) 分 别 选 择 单元 格 B6、B9 和 C9, 右 击 选择 “设置 单元 格格 式 ” 菜单 ,在 “ 设 
置 单 元 格格 式 ” 窗 口中 ， 选 择 “数字 ”选项 卡 中 的 “百分比 ”分 类 ， 同 时 将 小 数位 
数 调整 为 2， 如 图 6-23 所 示 。 
设置 单元 格格 式 
TT | | | 


图 6-23 百分比 格式 设置 
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(4) 选择 “开发 工具 ”|“ 插 入 ”|“ 表 单 控件 ”|“ 数 值 微调 钮 ”命令 ,在 C7 单 
元 格 位 置 放置 一 个 数值 微调 钮 对 象 ， 如 图 6-24 所 示 。 
ca (D0) 长 期 借款 敏感 性 分 析 模 型 js [知客 楼 式 ] - \ 


6 
1 年 付 息 次 数 


图 6-24 表单 控件 一 一 数值 微调 
图 实验 提示 图 
如 果 Excel 2007 中 没有 “开发 工具 ”选项 卡 ， 请 参阅 6.1 章节 的 相关 内 容 。 
(5) 右 击 “数值 微调 钮 ”， 选 择 “ 设 置 控件 格式 ”菜单 ， 在 “设置 对 象 格式 ” 
窗口 的 “控制 ”选项 卡 中 ,将 “当前 值 ” 设置 为 1、“ 最 小 值 ” 设 置 为 1、“ 最 大 值 ? 
设置 为 6、“ 步 长 ”为 1、“ 单 元 格 链接 ”为 “$B$7”， 如 图 6-25 所 示 。 


设置 对 象 格式 


大 小 〗 保护 | 属性 | web | 控制 
当前 值 c)， [I 
最小 值 : 。 [一 
最 大 值 Wo) BE 


上 长 DW: 
页 步 长 0 | 


| _— 
单元 格 链接 由， [5 [sl 


回 三维 阴 影 G) 


6-25 ”数值 微调 控件 格式 设置 
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(6) 选择 “开发 工具 ” | “插入 ”|“ActiveX 控件 ”|“ 数 值 微调 钮 ”命令 ， 在 C9 
单元 格 位 置 放置 一 个 数值 微调 钮 对 象 ， 如 图 6-26 所 示 。 


图 6-26 ”ActiveX 控件 一 一 值 微调 


(7) 选择 单元 格 B9， 输 入 公式 “=B6+C9”。 

(8) 选择 “开发 工具 ”|“ 插 入 ”|“ 表 单 控件 ” |“ 按钮 ”命令 ， 在 窗 体 空白 处 放 
置 两 个 按钮 对 象 ， 分 别 设 置 其 文本 为 “计算 分 析 ” 和 “清除 表格 ”， 和 暂时 不 指定 宏 
程序 ， 如 图 6-27 所 示 。 


变化 后 的 利率 o.00% 4 | > | 
图 6-27 表单 控件 一 一 命令 按钮 
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(9) 选择 “开发 工具 ”|“ 设 计 模 式 ” 命 令 ， 如 图 6-28 所 示 。 
A 


ll 人 | So 
6-28 ”设计 模式 


国 实 验 提示 国 
在 设计 模式 下 ，ActiveX 控件 可 以 进行 程序 编写 、 改 变 必 性 等 操作 。 该 选项 属 
于 开关 型 选项 ， 再 次 单 击 后 ， 将 取消 设计 模式 ，ActiveX 控件 将 进入 运行 状态 。 


(10) 双击 C9 单元 格 的 数值 微调 钮 对 象 ， 进 入 程序 设计 窗口 ， 选 择 微调 按钮 的 
SpinUp 事件 ， 编 写 程序 如 下 : 


Private Sub SpinButtonl SpinUp() 
' 当 每 次 单 击 微调 按钮 的 增加 键 时 ， 变 化 后 的 利率 增加 0.01% 
Cells(9, 3) = Cells(9, 3) + 0.0001 

End Sub 


(11) 选择 微调 按钮 的 SpinDown 事件 ， 编 写 程序 如 下 : 


Private Sub SpinButton1l_ SpinDown() 
' 当 每 次 单 击 微调 按钮 的 减少 键 时 ， 变 化 后 的 利率 减少 0.01% 
Cells(9, 3) = Cells(9, 3) - 0.0001 

End Sub 


(12) 插入 一 个 模块 ,在 模块 中 编写 一 个 进行 输入 信息 是 否 符 合 要 求 的 校 验 程序 
( 自 定义 函数 )， 程 序 具体 如 下 : 


Function sjpd() As Boolean 
If IsNumeric(Cells(4，2)) = False Then ' 判 断 是 否 是 数字 
MsgBox "请 在 借款 额 中 输入 数字 " 
sjpd = False 
Exit Function 
Else 
If Vall(Cells(4, 2)) = 0 Then 
MsgBox "借款 额 必须 大 于 零 " 
sjpd = False 
Exit Function 
End If 
End If 
If IsNumeric(Cells(5, 2)) = False Then 
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MsgBox "请 在 期 限 中 输入 整数 " 
sjpd = False 
Exit Function 
Else 
IE Vall(Cells(5, 2)) = 0 Then 
MsgBox "期 限 必须 大 于 零 " 
sjpd = False 
Exit Function 
End If 
End If 
If IsNumeric(Cells(6, 2)) = False Then 
MsgBox "请 在 利率 中 输入 数字 " 
sjpd = False 
Exit Function 
Else 
IE Val (Cells(6，2)) = 0 Then 
MsgBox "利率 必须 大 于 零 " 
sjpd = False 
Exit Function 
End If 
End If 
sjpd = True 
End Function 


(13) 在 该 模块 中 编写 一 个 进行 表格 数据 清除 的 程序 ( 自 定义 过 程 ), 程序 具体 
如 下 : 


Sub QCBE () 
Dim ZQS Rs Integer ' 总 期 数 
2ZQS = Cells(5, 2) * Cells(7, 2) 
Range (Cells (12，3)，Cells (16，2ZQS + 3)) .Clear ' 将 表单 中 的 数据 
区 域 全 部 清除 ， 包 括 内 容 和 格式 
If Sheetl.ChartObjects.Count > 0 Then ' 如 果 已 经 绘制 了 图 表 ， 则 将 
该 图 表 删 除 
Sheetl1.ChartObjects.Delete 
End If 
Range ("B4:B7") .ClearContents ' 清 除 模 型 基本 数据 区 域 的 内 容 
"将 模型 基本 数据 区 域 的 所 有 数字 部 分 设置 初 值 
Range (Cells(4, 2), Cells(6, 2)) = 0 
Cells(7, 2) = 1 
Cells{9,..3) = 0 
End Sub 
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(14) 在 该 模块 中 编写 进行 计算 分 析 的 程序 ( 自 定义 过 程 )， 程 序 具体 如 下 : 


Sub JSFX() 
Dim JZLV Rs Double ' 基 准 利 率 
Dim BHLV Rs Double ' 变 化 利率 
Dim MAX1 Rs Double ' 最 大 的 基准 利息 
Dim MAX2 Rs Double ' 最 大 的 变化 利息 
Dim MAX3 Rs Double ' 最 大 的 基准 本 金 
Dim MAX4 As Double ' 最 大 的 变化 本 金 
Dim MAXX Rs Double ' 最 大 的 金额 
Dim ZQS Rs Integer ' 总 期 数 
Dim I Rs Integer ' 计 数 器 
Dim aa Rs String ' 字 符 串 变量 
If sjpd = False Then ' 调 用 SJPD 函数 对 数据 进行 校 验 
Exit Sub 
End If 
JZLV = Cells (6, 2) 
BHLV = Cells (9, 2) 
2ZQs = Cells(5, 2) * Cells(7, 2 


"判断 最 后 一 列 的 字母 符号 
IE 2QS <= 24 Then 
aa = Chr (66 + 2ZQS) “最 前 面 占用 两 列 ,所 以 从 第 三 列 开始 , 第 三 列 是 "C" 


Else 
If ZQsS <= 50 Then “' 超 过 24 以 后 ,Excel 采用 字母 A 加 字母 的 方式 ， 
后 面 用 完 后 用 字母 B, 以 及 C 
aa = "a" & Chr(66 + 2QS - 26) 
Else 


IE 2ZQS <= 76 Then 
aa = "b" & Chr(66 + 2ZQS - 52) 
Else 
If 2ZQS <= 102 Then 
aa = "c" & Chr(66 + 2QS - 78) 
Else 
MsgBox ("本 模型 最 长 还 款 期 数 为 102 期 !") 
End 
End If 
End If 
End If 
End If 
"设置 表 头 中 的 期 间 数 
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For 工 = 1 To 20S 
Cells(1l2; T+ 2) = 工 
Next 
"设置 单元 格 的 对 齐 方式 
Range (Cells (12，2) ，Cells (12，2ZQS + 2) ) .HorizontalRlignment = 
xlCenter 
"利用 循环 语句 ， 计 算 每 期 的 本 金 和 利息 
For 工 = 1 To ZzQS 


Cellstl3， 工 生 2) = =-IPMrF(B6/BT;" & I & “B57:B4)" 
Cells(14, I + 2) = IPMT(B9/BT," & I & ",B5*B7,B4)" 
Cells(15, I + 2) = "=-PPMT(B6/B7," & I & ",B5*B7,B4)" 
Cells(16, I + 2) = "=-PPMT(B9/B7," & I & ",B5*B7,B4)" 
Next 
"设置 表 体 中 的 数字 的 小 数位 数 


Range (Cells (13, 3), Cells(16, 2ZQS + 2)) .NumberFormat = "0.00" 


MAX1 = Cells(13, 3) 
MAX2 = Cells(14, 3) 
MAX3 = Cells(15, 2ZQS + 2) 


MAX4 = Cells(16, 2ZQS + 2) 
MAXX = Application.WorksheetFunction.Max (MAX1, MAX2, MAX3, MAX4) 


国 实 验 提示 图 

在 Excel 中 ,系统 函数 分 为 单元 格 公式 中 使 用 的 函数 和 VBA 程序 设计 中 使 用 的 函数 。 
有 的 单元 格 使 用 的 函数 在 VBA 中 不 能 直接 使 用 ， 如 MAX 函数 ， 可 以 在 单元 格 公式 中 直 
接 使 用 ， 但 不 能 在 VBA 中 直接 使 用 。 在 这 种 情况 下 ， 可 以 使 用 Application . 
WorksheetFunction .函数 名 的 方式 来 调用 ,Excel VBA 的 帮助 文件 中 有 相关 的 专题 可 以 查阅 。 


Range (Cells (13, 3), Cells(16, 2QS + 2)) .Select 
' 插 入 一 个 图 表 对 象 

Charts.Add 
aa = "cl2:" & aa & "16" 
"设置 图 表 的 类 型 

ActiveChart.ChartType = X1LXYScatterSmooth 
"设置 图 表 的 数据 来 源 以 及 系列 产生 的 方向 
RActiveChart .SetSourceData Source:=Sheets ("SHEET1") .Range (aa), 

PlotBy:=xlRows 

"设置 图 表 的 系列 的 名 称 

ActiveChart .SeriesCollection (1) .Name = "="" 基 准 利率 情况 下 的 利息 """ 
RctiveChart.SeriesCollection (2) .Name = "="" 变 化 利率 情况 下 的 利息 """ 
ActiveChart .SeriesCollection (3) .Name = "="" 基 准 利率 情况 下 的 本 金 """ 
ActiveChart .SeriesCollection(4) .Name = "="" 变 化 利率 情况 下 的 本 金 """ 
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"设置 图 表 具 体 存放 的 表单 名 
ActiveChart .Location Where:=xlLocationRsobject，Name:="SHEET1" 
"设置 图 表 的 横 坐 标 和 纵 坐标 的 名 称 
With ActiveChart 
-HasTitle = False 
-Axes (xlCategory, xlPrimary) .HasTitle = True 
-Axes (xlCategory, xlPrimary) .AxisTitle.Characters.Text = 


"期 次 " 
.Axes (xlValue, xlPrimary) .HasTitle = True 
.Axes (xlValue, xlPrimary) .AxisTitle.Characters.Text = 
"利息 或 本 金 " 
End With 
"设置 横 坐 标的 格式 和 坐标 值 


RActiveChart.RAxes (xlCategory) .Select 

With ActiveChart.Axes (xlCategory) 
-MinimumScale = 0 
.MaximumScale = 2ZQS + 1 
-MinorUnitIsAuto = True 
.Crosses = xlAutomatic 
-ReversePlotOrder = False 
.ScaleType = xlLinear 
.DisplayUnit = xlNone 

End With 

"设置 纵 坐 标的 格式 和 坐标 值 

ActiveChart.Axes (xlValue) .Select 

With ActiveChart.Axes (xlValue) 
.MinimumScale 0 
.MaximumScale = Int (MAXX) 
-MinorUnitIsAuto = True 


.Crosses = xlAutomatic 
.ReversePlotOrder = False 
.ScaleType = xlLinear 
.DisplayUnit = xlNone 
End With 
Selection.TickLabels.NumberFormatLocal = "0" 
"分 别 设置 四 个 系列 的 颜色 和 线条 类 型 
ActiveChart.SeriesCollection(1).Select 
Selection.Border.ColorIndex = 0 
With Selection 
.MarkerBackgroundColorIndex = 0 


上 


.MarkerForegroundColorIndex 
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-MarkerSty1le 
End With 


= xlDiamond 


ActiveChart .SeriesCollection(2) .Select 


Selection.Border.ColorIndex = 1 


With Selection 


-MarkerBackgroundColorIndex = 1 
和 


-MarkerForegroundColorIndex = 


-MarkerStyle = 
End With 


ActiveChart.SeriesCollection(3) 


Selection.Border.ColorIndex = 3 


With Selection 


xlSquare 


-Select 


.MarkerBackgroundColorIndex = 3 


.MarkerForegroundColorIndex = 3 


.Markerstyle = 
End With 


ActiveChart.SeriesCollection(4) 
= 4 


Selection.Border.ColorIndex 
With Selection 


xlTriangle 


.Select 


.MarkerBackgroundColorIndex = 4 


.MarkerForegroundColorIndex = 4 


.MarkerStyle = xlDot 
End With 
"设置 图 表 在 表单 中 的 位 置 


Sheetl.ChartObjects(1).Top = 


Sheetl.ChartObjects(1) .Left 


269 


= 194 


' 绘 制 完 图 标 后 ， 将 光标 调整 到 第 10 行 的 位 置 


Windows ("长 期 借款 敏感 性 分 析 模 型 .xls") .ScrollRow = 


End Sub 


10 


(15) 双击 工程 资源 窗口 中 的 ThisWorkbook 对 象 ， 选 择 Workbook 对 象 的 Open 


事件 ， 如 图 6-29 所 示 。 


6-29 ”编写 初始 运行 程序 
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图 实 验 提示 国 
该 事件 中 的 程序 将 在 工作 簿 打开 的 时 候 执行 。 


(16) 在 Open 事件 中 编写 程序 如 下 : 


Private Sub Workbook Open () 
Sheets ("sSheet1l") .Select 
Call QCBE 

End Sub 


(17) 关闭 程序 设计 窗口 ， 回 到 Excel 电子 表单 ， 右 击 选 择 “ 计 算 分 析 ” 按 钮 ， 
为 其 指定 宏 程 序 为 <JSFX”; 右 击 选择 “清除 表格 ”按钮 , 为 其 指定 宏 程序 为 “<QCBE”。 


6.2.4 实验 效果 


(1) 输入 借款 金额 、 期 限 、 基 准 利率 、 付 息 次 数 和 变化 利率 。 如 图 6-30 所 示 。 
A 


了 E FE | 


全 


| 基准 期 限 5 年 ) 
| 基准 利率 《%7 


年 付 息 次 数 


| 计算 分 析 过 程 i 
各 期 支付 利息 基 浊 有 详 
各 期 还 本 全 。 计生 
图 6-30 ”模型 界面 效果 


s5esssls on omelosl- 


(2) 单 击 “ 计 算 分 析 ” 按 钮 ， 将 出 现 计算 分 析 结 果 ， 如 图 6-31 所 示 。 


41 计算 分 析 过 程 

12 期 次 2 3 4 5 [3 了 § 9 10 
13 。 各 则 妇 付 利息 ”基准 利率 1 500851 533056 5008 11 T7032 3% 6006.80 49266569 06 2590.93 13290 
141 变化 利率 602.00 10713.52 9773.50 8778.95 7726.70 6613 42 5435.55 4189 36 2670.87 “1475 90| 
15 。 名 期 伴 还 本 会 。 芝 惟 利率 15664.21 16497.71 17375.55 16300.10 i9273.85 20299.41 21379.54 22517, 15 23715.29 24977.18 
18 变化 利率 15315. 99 16204. 46 17144. 49 16139.03 19191.27 20304.56 21482.43 22728.62 24047. 11 25442 
17 

18 . a 

19 

20 

21 20000 

22 一 画 和 时 二 下 的 和 

23 和 s 

24 人 和 的 

3 是 三 

|28_ 一 基准 利于 博 吏 下 的 本 | 

2 oo 全 

2 -一 六 化 利 谤 过 汉 下 的 二 

9 ts 主 

a o s 3 

Fl 
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6-31 计算 结果 显示 效果 
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(3) 单 击 “ 清 除 表格 ”按钮 ， 将 清除 计算 结果 ， 如 图 6-32 所 示 。 


图 6-32 ”清除 表格 显示 效果 


6.3 应 收 账 款 账 龄 分 析 模型 


账 龄 是 指 负债 人 所 入账 款 的 时 间 。 账 龄 越 长， 发 生 坏账 损失 的 可 能 性 就 越 大 。 
账 龄 分 析 法 是 指 根据 应 收 账 款 的 时 间 长 短 来 估计 坏账 损失 的 一 种 方法 ， 又 称 应 收 账 
款 账 龄 分 析 法 。 


6.3.1 实验 目的 


(1) 掌握 Excel VBA 与 Excel 电子 表格 的 联系 。 

(2) 掌握 各 种 进行 电子 表格 处 理 的 函数 的 使 用 方法 。 

(3) 进一步 熟悉 程序 设计 ， 尤 其 是 循环 语句 的 使 用 技巧 。 
(4) 了 解 对 电子 表格 进行 动态 数据 处 理 的 方法 。 


6.3.2 ”实验 内 容 


企业 发 生 的 应 收 账 款 时 间 长 短 不 一 , 有 的 尚未 超过 信用 期 , 有 的 则 已 逾期 拖欠 。 
- 般 来 说 ， 逾 期 拖欠 时 间 越 长 ， 催 收 的 难度 越 大 ， 成 为 坏账 的 可 能 性 也 就 越 高 。 所 
以 ， 企 业 需要 定期 对 应 收 账 款 进行 账 龄 分 析 ， 并 编制 应 收 账 款 账 龄 分 析 表 ， 以 加 强 
对 应 收 账 款 的 管理 。 

通过 Excel 建立 应 收 账 款 账 龄 分 析 模 型 ， 根 据 给 定 的 应 收 账 款 金额 、 客 户 数量 
以 及 应 收 账 款 账 龄 区 间 ， 对 这 些 应 收 账 款 进行 分 类 统计 分 析 ， 计 算出 不 同 客户 在 不 
同 账 龄 区 间 的 应 收 账 款 数额 及 其 占 应 收 账 款 总 额 的 百分比 、 计 算出 不 同 账 龄 区 间 内 
的 应 收 账 款 总 额 及 其 占 应 收 账 款 总 额 的 百分比 。 
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6.3.3 ”实验 步骤 


(1) 创建 一 个 新 的 工作 簿 , 将 Sheetl 和 Sheet2 的 表 名 分 别 修改 为 “ 主 表 ” 和 “ 原 

(2) 单 击 “ 开 发 工具 ”|“ 插 入 ”|“ActiveX 控件 ”|“ 命 令 按 钮 ”， 在 主 表 上 放 
置 两 个 命令 按钮 ， 将 其 Caption 属性 分 别 修改 为 “ 账 龄 分 析 ” 和 “表格 清除 ”， 并 
调整 其 位 置 和 大 小 ， 如 图 6-33 所 示 。 


[型 B £ D E FE 
| WW Pp 


图 6-33” 主 表 界 面 设计 
国 实 验 提示 图 
如 果 Excel 2007 中 没有 “开发 工具 ”菜单 ， 请 参阅 6.1 节 的 相关 内 容 。 
(3) 选择 “原始 数据 ” 表 , 在 单元 格 Al、B1、C1、D1 中 分 别 输入 “发 票 编号 ”、 
“发 票 日 期 ”、“ 发 票 金额 (万 元 )”、“ 客 户 名 称 ”， 如 图 6-34 所 示 。 


了 D 


发 票 编号 发 票 日 期 人 客户 名 称 


图 6-34 原始 数据 表 表 头 设计 
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(4) 单 击 “ 开 发 工具 ”|“ 插 入 ”|“ActiveX 控件 ”|“ 命 令 按 钮 ”， 在 原始 数据 
表 上 放置 三 个 命令 按钮 , 分别 将 Coption 属性 修改 为 “插入 ”、“ 查 询 ” 和 “ 核 销 ”， 
并 调整 其 位 置 和 大 小 ， 如 图 6-35 所 示 。 
人 i —B EE EE PENRO WE ££ WN EE EF PE 


发 要 编号 。 发票 日期 。 。 发 于 全 额 。 客户 名 称 插入 查询 核 销 


图 6-35 ”原始 数据 表 按 钮 设计 


(5) 选择 B 列 ， 即 “发 票 日 期 ” 列 ， 右 击 鼠标 ， 选 择 “设置 单元 格格 式 ” 命 令 ， 
如 图 6-36 所 示 。 


图 6-36 设置 单元 格格 式 


(6) 在 “设置 单元 格格 式 ” 窗 口中 ， 选 择 “ 数 字 ” 选 项 卡 的 “日 期 ”分 类 ， 在 
“类 型 ”列表 中 选择 “*2001-3-14”， 如 图 6-37 所 示 。 
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图 6-37 设置 单元 格 日 期 格式 


图 实 验 提示 国 

类 型 列表 中 有 带 “*” 和 不 带 “*” 两 类 ， 此 处 须 选 择 带 “*” 的 类 型 ， 两 种 类 型 
的 区 别 请 参阅 2.6 节 。 

(7) 单 击 “ 视 图 ”|“ 冻 结 窗 格 ”|“ 冻 结 首 行 ”命令 ， 如 图 6-38 所 示 。 


De 。 机 式 ] - Microsoh Excel 
开 @。 看 和 。 页 加 布 十 。 公式 数 二 。 市 两 | EE | 天 WI 


"EM 


DweE 加 未 比 列 100% 吾 必 到 条 于 让 全 部 重活 ss | sa| 
回信 2 示 Ee 


发 票 编号 发 票 日 其 


eal 


图 6-38 ”冻结 首 行 菜单 


(8) 按 ALT+F11 键 进 入 程序 设计 窗口 ， 选 择 “插入 ”下 的 “用 户 窗 体 ”， 插 入 
用 户 窗 体 UserForml 。 

(9) 在 “工具 箱 ” 中 选择 “标签 ”对 象 网 ， 在 窗 体 上 放置 4 个 标签 ， 并 设置 其 
Caption 属性 分 别 为 “发 票 编 号 ”、“ 发 票 时 间 ”、“ 发 票 金额 ”、“ 客 户 名 称 ”， 
调整 其 位 置 和 大 小 ， 如 图 6-39 所 示 。 
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6-39 ”数据 输入 界面 设计 


(10) 在 “工具 箱 ” 中 选择 “文本 框 ”对 象 面 ， 在 窗 体 上 放置 3 个 文本 框 ， 文 本 
框 1 至 3 依次 对 应 “发 票 编号 ”、“ 发 票 金额 ”和 “客户 名 称 ”， 如 图 6-40 所 示 。 


图 6-40 添加 文本 框 
(11) 选择 “工具 箱 ”， 在 “控件 ”选项 卡 空白 处 右 击 ， 选 择 “ 附 加 控件 ”菜单 ， 


如 图 6-41 所 示 。 


6-41 添加 附加 控件 
二 


图 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


(12) 在 “附加 控件 ”窗口 的 “可 用 控件 ”列表 中 ,选择 Microsoft Date and Time 
Picker Control 6.0(SP4)， 如 图 6-42 所 示 。 


DMicrosoft DirectAnination Control 
OMicrosoft DirectAnimation Path 上 
DMicrosoft Directhnination Sequencer » 


图 6-42 “附加 控件 ”对 话 框 


国 实 验 提示 图 

如 果 在 可 用 控件 中 没有 发 现 这 个 控件 ， 需 要 进行 补充 安装 。 在 本 书 课 件 中 ， 有 
一 个 Mscomect2.ocx 文件 (保存 在 本 书 课件 中 “实验 6.3” 文 件 夹 下 )， 将 该 文件 复制 
到 C:\Windows\Ssstem32 下 ， 然 后 单 击 Windows 的 “开始 ”按钮 选择“ 运行 ” 功 
能 ， 在 命令 行 中 输入 “Iegsvr32 mscomct2.ocx” 即 可 解决 问题 。 


(13) 在 “工具 箱 ” 中 选择 “DTPICKER” 对 象 辐 |, 在 窗 体 上 放置 一 个 日 期 对 象 ， 
如 图 6-43 所 示 。 


UserForm1l 


图 6-43 数据 输入 界面 设计 
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(14) 在 “工具 箱 ” 中 选择 “命令 按钮 ”对 象 国 ， 在 窗 体 上 放置 两 个 命令 按钮 ， 
命令 按钮 1 的 Caption 属性 为 “确定 ”， 命 令 按钮 2 的 Caption 属性 为 “取消 ”， 
如 图 6-44 所 示 。 


6-44 ”添加 命令 按钮 


(15) 选择 “插入 ”|“ 用 户 窗 体 ”命令 ， 插 入 用 户 窗 体 UserForm2。 

(16) 在 UserForm2 上 放置 2 个 框架 对 象 、5 个 选项 按钮 对 象 、1 个 DTPICKER 对 
象 、1 个 文本 框 对 象 和 2 个 命令 按钮 对 象 。 框架 1 的 Caption 属性 为 “查询 范围 设置 ”， 
框架 2 的 Caption 属性 为 “查询 条 件 设 置 ”， 将 OptionButton1 、OptionButton2、 
OptionButton3 按 顺 序 依 次 放置 到 查询 范围 设置 框架 中 ，OptionButton4 和 
OptionButton5 按 顺 序 依次 放置 到 查询 条 件 设置 框架 中 ， 如 图 6-45 所 示 。 


图 6-45 查询 条 件 设置 界面 设计 
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(17) 选择 “插入 ”|“ 用 户 窗 体 ”命令 ， 插 入 用 户 窗 体 UserForm3 。 

(18) 在 UserForm3 上 放置 3 个 标签 对 象 、1 个 DTPICKER 对 象 、2 个 文本 框 对 
象 和 2 个 命令 按钮 对 象 。 文 本 框 1 对 应 “ 账 龄 分 析 信 用 期 间 ”， 文 本 框 2 对 应 “ 账 
龄 分 析 期 间 数量 ”， 命 令 按钮 1 的 Caption 属性 为 “确定 ”， 命 令 按钮 2 的 Caption 
属性 为 “放弃 ”， 如 图 6-46 所 示 。 


图 6-46 账 龄 分 析 条 件 设置 界面 设计 


(19) 选择 “插入 ”|“ 模 块 ” 命 令 ， 插 入 模块 1。 
(20) 选择 模块 1, 在 通用 声明 部 分 , 声明 三 个 全 局 变量 N、N1 和 N2, 如 图 6-47 
所 示 。 


Public n As Integer 
Public nl As Integer “ 
Public n2 As Integer “由 l 


图 6-47 全 局 变量 定义 


(21) 在 模块 1 中 编写 一 个 客户 名 称 检查 的 自 定义 函数 ， 程序 具体 如 下 : 


Function mcjc(BYVal khmc As String) As Boolean 
Dim i As Integer 
If nl = 0 Then 
mcjc = False 
Exit Function 
End If 


"利用 循环 语句 ， 判 断 是 否 有 重复 的 客户 名 称 。 同 时 ， 调 用 函数 时 ， 需 要 确保 当前 激活 的 工 
作 表 是 主 表 。 
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For =1 To pl 
IE Trim(Cells(i + 10, 1)) = Trim(khmc) Then 
mcjc = True 
Exit Function 
End If 
Next i 
mcjc = False 


End Function 


(22) 在 模块 1 中 编写 一 个 确定 表格 格式 的 自 定义 过 程 ， 程 序 具体 如 下 : 


Sub gsbz() 
Dim i As Integer 
Dim K As Integer 
K=6 
"利用 循环 语句 ， 依 次 设 定 行 的 高 度 和 列 的 宽度 
For = 1 Ton2+4 
RctiveSheet.Columns (i) .ColumnWidth = 15 
Next i 
For i=5 To nl + 11 
ActiveSheet .Rows (i) .RowHeight = 21 
Next i 
' 设 定 表格 的 边框 线 ， 表 格 内 部 线 的 类 型 以 及 字体 的 设置 
Range (Cells(K, 1), Cells(K + 2, 2)) .Borders.LineStyle = 
xlDouble 
Range (Cells(K, 1), Cells(K + 2, 
2)) .Borders(xlInsideHorizontal) .LineStyle = xlDashDotDot 
Range (Cells(K, 1), Cells(K + 2, 
2)) .Borders (xlInsideVertical) .LineStyle = xlDashDotDotone 
Range (Cells(K, 1), Cells(K + 2, 1)).Font.Bold = True 
Range (Cells(K, 1), Cells(K + 2, 1)).Font.Size = 16 
Range (Cells (K, 1), Cells (K + 2, 1)) .Font.Name = "楷体 GB2312" 
Range (Cells (K, 1), Cells (K+ 2, 1)) .HorizontalAlignment = xlLeft 
Range (Cells (K, 2), Cells (K+2, 2)) .HorizontalAlignment = xlRight 
Range (Cells (10, 1), Cells(11 +nl, n2 + 4)) .Borders.Linestyle 
= xlContinuous 
Range (Cells(10, 1), Cells(1l1l + nl, n2 + 
4)) .Borders (xlInsideHorizontal) .LineStyle = xlContinuous 
Range (Cells(10, 1), Cells(1l + nl, n2 + 
4)) .Borders (xlInsideVertical) .LineStyle = xlContinuous 
Range (Cells(10, 1), Cells(10, n2 + 4)).Font.Bold = True 
Range (Cells(10, 1), Cells(10, n2 + 4)).Font.Size 14 
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Range (Cells (10, 1), Cells (10, n2 + 4) ) -Font .Name = "楷体 GB2312" 
Range (Cells (10, 1), Cells(10, n2 + 4)) .HorizontalAlignment 


xlCenter 
Range (Cells(11, 1), Cells(1l + nl, 1)).Font.Bold = True 
Range (Cel1ls (11，1) ，Cells(11 + nl, 1)).Font.Size = 16 
Range (Cells (11, 1), Cells (11 + nl, 1)) .Font.Name = "楷体 GB2312" 
Range (Cells(11, 1), Cells(11 + nl, 1)) .HorizontalAlignment 


I 


xlCenter 

Range (Cells (11, 2), Cells(1l + nl, n2 + 4)) .HorizontalAlignment 
= xlRight 
End Sub 


(23) 在 模块 1 中 编写 一 个 统计 分 析 的 自 定义 过 程 ， 程 序 具体 如 下 : 


Sub 统计 分 析 (ByVal jzrq Rs Date, ByVal xyqj Rs Integer, ByVal qjsl 
As Integer) 


1 


Dim i As Integer 

Dim sumz As Integer 

Dim qssj As Integer 

Dim jsqj As Integer 
Sheets ("原始 数据 ") .Select 


"Counta () 函数 可 以 统计 一 个 区 域 中 不 为 空 的 单元 格 数量 ， 不 过 该 函数 不 能 在 VBA 中 
直接 使 用 ， 需 要 特殊 调用 。 


n = WorksheetFunction.CountR(Range("a:a")) - 1 ' 统 计 业 务 数量 
ReDim da(n) Rs Integer “设置 一 个 数组 ， 用 于 存放 每 笔 业 务 超过 信用 期 
间 的 天 数 
For i = 1 To n "取出 每 笔 业 务 超过 信用 条 件 的 天 数 ， 但 每 个 月 按照 30 天 计算 
da(i) = Application.WorksheetFunction.Days360 (jzrq, 
Cells(1 + i, 2)) 
Next i 
' 统 计 往 来 客户 的 数量 (不 包含 重复 的 名 称 ) ， 并 将 客户 名 称 放置 到 主 表 对 应 单元 格 
Sheets (" 主 表 ") .Select 
Range (Cells(1，1)，Cells(1000，100) ) .Clear 
nl =0 
For 二 = 1 To n 
If mcjc(Sheets (" 原 始 数据 ") .Cells(i + 1，4)) = False Then 
Cells (nl + 11，1) = Sheets ("原始 数据 ") .Cells(i + 1，4) 
n= 了 1 孝王 
End If 
Next i 
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ReDim namek (nl1) As String 
For i = 1 To nl ' 取 出 每 个 客户 的 名 称 
namek (i) = Cells(10 + i, 1) 


Next i 


n2 = qjsl “需要 分 析 的 期 间 个 数 ， 但 由 于 信用 期 内 是 一 个 必然 的 项 目 ， 所 以 ，N2 的 
数据 与 实际 的 分 析 期 间 相差 1。 如 ，N2 是 3， 则 实际 应 该 有 4 个 期 间 ， 多 的 一 个 就 是 信用 期 
内 这 个 期 间 。 


Call gsbz 

Cells (6，1) = "基准 时 间 : " 
cells(7，1) = "信用 期 间 : " 
Cells (8，1) = "分 析 期 间 : " 
Cells(6, 2) = jzrq 
Cells(7, 2) = xyqj 
Cells(8, 2) = qjsl 

Cells (10，1) = "客户 名 称 " 


Cells (10，2) = "信用 期 内 "' 这 实际 上 就 是 第 一 个 分 析 期 间 ， 所 以 下 面 的 
循环 从 2 开始 。 


For i=2 To n2 

qssj = (i - 2) * xyqgj + 1 

jsqj = (i - 1) * xyqj 

Cells (10, i + 1) = "超过 " & qssj & "-" & jsqj & "天 " 
Next i 
Cells (10，2 + n2) = "超过 " & (xyqj * (n2 - 1)) & "天 以 上 " 
ReDim age (n2) Rs Integer ' 设 置 一 个 数组 ， 用 以 存放 各 个 期 间 的 临界 天 数 
age (0) = 0 ' 第 一 个 期 间 的 起 始 天 数 是 0 天 
For i=1 To n2 

age (i) = xyqj * i 
Next i 


ReDim sumt (nl，n2 + 1) As Integer ' 设 置 一 个 二 维 数组 ， 用 以 存放 某 
客户 在 某 个 期 间 的 往来 业务 金额 合计 。 


Sheets ("原始 数据 ") .Select “将 原始 数据 表 的 数据 取出 来 ， 进 行 技 客户 和 区 间 汇 总 
For i=1 To nl 
For j] = 1 To n2 + 1 
sumt(i, j) = 0 
IE j <= n2 Then “' 最 后 一 个 区 间 需 要 单独 判断 , 它 只 要 大 于 前 面 
一 个 区 间 就 可 以 , 它 后 面 没有 数据 了 
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Fort 


=1 Ton 
IE Cells(1 + t, 4) = namek(i) And da(t) > age(j 
- 1) And da(t) <= age(j) Then 
sumt (i, j) 
End If 
Next 七 
Else 
Fort=1Tn 


IE Cells(1 + 七 4) = namek(i) And da(t) > age(j 


sumt(i, j) + Cells(1 + 七 3) 


- 1) Then 
sumt (i, j) = sumt(i, j) + Cells(1 + t, 3) 
End If 
Next 七 
End If 
Next 本 
Next i 


Sheets (" 主 表 ") . Select ' 将 对 应 数据 放 在 主 表 上 
For i=1 To nl 
For j = 1 To n2 + 1 
Cells(10 + i, 1 + j) = sumt (i, j) 
Next 本 
Next i 
ReDim sumk(n1) As Integer ' 存 储 按 客户 汇总 的 数据 ， 不 分 区 间 
ReDim sumq(n2 + 1) Rs Integer ' 存 储 按 区 间 汇 总 的 数据 ， 不 分 客户 
For i = 1 To nl ' 按 客户 汇总 数据 
For j = 1 To n2 + 1 
sumk(i) = sumk(i) + Cells(10 +i，j + 1) 
Next j 
sumz = sumz + sumk(i) "计算 总 的 数据 
Next i 
For i = 1 To n2 + 1 ' 按 区 间 汇 总 数据 
For j = 1 To nl 
sumq(i) = sumq(i) + Cells(10 + j, i + 1) 
Next j 
Next i 
"进行 基本 文字 的 设置 
Cells(11 + nl，1) = "合计 " 
Cells(10，n2 + 3) = "合计 " 
Cells (10，n2 + 4) = "百分比 " 
"进行 基本 格式 设计 
Range (Cells (10, n2+3), Cells (10, n2+4)) .HorizontalAlignment 
= xlCenter 


上 
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Range (Cells (10，1)，Cells (11 + n1，1)) .HorizontalRAlignment 
= xlCenter 


Range (Cells(10, 1), Cells(1ll + nl, 1)) .VerticalAlignment = 
xlCenter 
"进行 数据 格式 设计 
Range (Cells(11，4 + n2)，Cells(11 + nl, 4 + n2) ) .NumberFormat 
= "0.00%"™ 
For i = 1 To nl ' 将 客户 汇总 数据 放 上 去 
Cells(10 + i, n2 + 3) sumk (i) 
Next i 
Cells(11 + nl, n2 + 3) = sumz ' 将 总 数据 放 上 去 
For i = 1 To n2 + 1 ' 将 区 间 汇 总 数据 放 上 去 
Cells(l11 + nl, i + 1) = sumq(i) 
Next 
If sumz <> 0 Then 
For i=1Tonl+l1 
Cells(10 + 4, 4 + n2) 


Cells(10 + i, 3 + n2) / sumz 


Next i 
Else 
For i=1Tonl+l1 
Cells(10 + i, 4+ n2) = 0 
Next i 
End If 


End Sub 


(24) 在 模块 1 中 编写 一 个 发 票 核 销 的 程序 ， 程 序 具体 如 下 : 


Sub fphx() 
Dim i As Integer 
Sheets ("原始 数据 ") .Select 
n = WorksheetFunction.CountA (Range ("a:a")) 
If ActiveCell.Row < 2 Or ActiveCell.Row > n Or 
ActiveCell.Column > 4 Then 
MsgBox "请 首先 选择 发 票 区 域内 的 一 张 发 票 ! " 
Exit Sub 
End If 
i = MsgBox ("是 否 确定 删除 发 票 号 为 : " & Cells (ActiveCell.Row, 1) 
& "的 发 票 ? "，vbOoKCancel + vbQuestion) 
If i = VvbOK Then 
Rows (ActiveCell .Row) .Delete 
End If 
End Sub 
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(25) 选择 UserForml 对 象 ， 编 写 命令 按钮 1 的 Click 事件 程序 如 下 : 


Private Sub CommandButton1l _ Click() 


' 添 加 新 的 往来 业务 到 原始 数据 区 域 ， 要 对 发 票 号 是 否 重复 进行 验证 ， 同 时 也 要 
对 业务 数据 进行 必要 的 检验 。 


Sheets ("原始 数据 ") .Select 
n = WorksheetFunction.CountA (Range ("a:a")) 
If TextBoxl.Value = "" Then 
MsgBox "请 输入 发 票 号 " 
TextBoxl1 .SetFocus 
Exit Sub 
End If 
If fpjc(TextBoxl.Value, n) = False Then 
MsgBox "发 票 号 有 重复 ， 请 检查 后 重新 输入 " 
TextBoxl1 .SetFocus 
Exit Sub 
End If 
If IsNumeric(TextBox2.Value) = False Then 
MsgBox "请 在 发 票 金额 中 输入 数字 " 
TextBox2.SetFocus 
Exit Sub 
End If 
If Val (TextBox2.Value) = 0 Then 
MsgBox "发 票 金额 必须 大 于 零 " 
TextBox2.SetFocus 
Exit Sub 
End If 
If Trim(TextBox3.Value) = "" Then 
MsgBox "必须 输入 客户 名 称 " 


End If 

Cells(n + 1, 1) = TextBoxl.Value 
Cells(n + 1, 2) = DTPickerl .Value 
Cells(n + 1, 3) = TextBox2.Value 


Cells(n + 1, 4) TextBox3.Value 
MsgBox "业务 添加 完毕 ! " 
End Sub 


(26) 编写 命令 按钮 2 的 Click 事件 程序 如 下 : 
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Private Sub CommandButton2 Click() 
Unload Me 
End 

End Sub 


(27) 编写 一 个 发 票 号 重复 检查 的 函数 ， 程 序 具 体 如 下 : 


Function fpjc (ByVal fpcode Rs String, ByVal sl As Integer) Rs Boolean 
Dim i As Integer 
If sl > 2 Then 
For i=2 To sl 
If Trim(Cells(i + 1, 1)) = Trim(fpcode) Then 
fpjc = False 
Exit Function 
End If 
Next i 
End If 
fpjc = True 
End Function 


(28) 选择 UserForm2 对 象 ， 编 写 窗 体 的 Initialize 事件 程序 如 下 : 


Private Sub UserForm_Initialize() 
TextBoxl.Enabled = False 
End Sub 


(29) 编写 命令 按钮 1 的 Click 事件 程序 如 下 : 


Private Sub CommandButtonl Click() 
"按照 条 件 进行 业务 查询 
Dim strfind Rs Variant 
Dim rng As Range 
Dim nrng Rs Range 
Dim n As Integer 
Sheets ("原始 数据 ") .Select 
If OptionButton4.Value = True Then 
strfind = CDate (DTPickerl .Value) 
Else 
strfind = TextBoxl.Value 
If strfind = "" Then 
MsgBox "请 先 设置 查询 条 件 ! " 
OptionButton4 .SetFocus 
Exit Sub 
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End If 
End If 
n= WorksheetFunction.CountA (Range ("a:a")) 
"设置 NRNG 为 当前 激活 单元 格 对 象 。 
Set nrng = Application.ActiveCell 
IE OptionButtonl.Value = False Then 
' 如 果 不 是 全 范围 查找 ， 就 意味 着 要 么 向 前 要 么 向 后 ， 这 就 对 当前 激活 的 单元 
格 的 位 置 有 一 定 的 要 求 
If nrng.Row < 2 Or nrng.Row > n Or nrng.Column > 4 Then 
MsgBox "当前 活动 单元 格 必须 在 查询 范围 内 ! " 
Exit Sub 
End If 
If OptionButton2.Value = True Then 
With Range (Cells(2, 1), Cells(n, 4)) 
Set rng = .Find(strfind, Application.ActiveCell, 
xlValues, xlWhole, xlByRows, xlNext, False) 
If Not rng Is Nothing Then 
Windows ("应 收 账 款 账 龄 分 析 模 型 .x1s") .ScrollRow = 
rng.Row 
rng.Activate 
Else 
MsgBox "本 次 查询 没有 找到 该 单元 格 " 
End If 
End With 
Else 
With Range (Cells(2, 1), Cells(n, 4)) 
Set rng = .Find(strfind, Application.ActiveCell, 
xlValues, xlWhole, xlByRows, xlPrevious, False) 
If Not rng Is Nothing Then 
Windows ("应 收 账 款 账 龄 分 析 模 型 .xls") .ScrollRow = 
rng.Row 
rng.Activate 
Else 
MsgBox "本 次 查询 没有 找到 该 单元 格 " 
End If 
End With 
End If 
Else 
With Range (Cells(2, 1), Cells(n, 4)) 
Set rng = .Findl(strfind, xlValues, xlWhole, xlByRows, 
xlNext, False) 
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If Not rng Is Nothing Then 
Windows (" 应 收 账 款 账 龄 分 析 模 型 . xls") .ScrollRow = rng.Row 
rng.Activate 

Else 
MsgBox "本 次 查询 没有 找到 该 单元 格 " 

End If 

End With 
End If 
End Sub 


(30) 编写 命令 按钮 2 的 Click 事件 程序 如 下 : 


Private Sub CommandButton2 Click() 
Unload Me 
End 

End Sub 


(31) 编写 选项 按钮 4 的 Click 事件 程序 如 下 : 


Private Sub OptionButton4 Click() 
TextBoxl.Enabled = False 
DTPickerl .Enabled = True 

End Sub 


(32) 编写 选项 按钮 5 的 Click 事件 程序 如 下 : 


Private Sub OptionButton5 Click() 
TextBoxl.Enabled = True 
DTPickerl .Enabled = False 

End Sub 


(33) 选择 UserForm3 对 象 ， 编 写 命令 按钮 1 的 Click 事件 程序 如 下 : 


Private Sub CommandButton]l Click() 
Dim rq As Date 
Dim xyqj As Integer 
Dim qjsl As Integer 
IE IsNumeric (TextBoxl .Value) = False Or Val (TextBoxl .Value) 
= 0 Then 
MsgBox "请 在 信用 期 间 中 输入 大 于 零 的 整数 ! " 
TextBoxl .SetFocus 
Exit Sub 
End If 
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IfE IsNumeric (TextBox2.Value) = False Or Val (TextBox2.Value) 
= 0 Then 

MsgBox "请 在 期 间 数量 中 输入 大 于 零 的 整数 ! " 
TextBox2.SetFocus 
Exit Sub 

End If 

rq = DTPickerl.Value 

xyqj = Int (TextBoxl.Value) 

qjsl = Int (TextBox2.Value) 

Call 统计 分 析 (rq，xyqj，qjs1) 

End Sub 


(34) 编写 命令 按钮 2 的 Click 事件 程序 如 下 


Private Sub CommandButton2 Click() 
Unload Me 
End 

End Sub 


(35) 在 工程 资源 管理 器 中 双击 “原始 数据 ”， 编 写 命令 按钮 1 的 Click 事件 程 
序 如 下 : 


Private Sub CommandButtonl Click() 
UserForml .Show 
End Sub 


G6) 编写 原始 数据 表 的 命令 按钮 2 的 Click 事件 程序 如 下 : 


Private Sub CommandButton2 Click() 
UserForm2 .Show 
End Sub 


G7) 编写 原始 数据 表 的 命令 按钮 3 的 Click 事件 程序 如 下 : 


Private Sub CommandButton3 Click() 
Call fphx 
End Sub 


(38) 在 工程 资源 管理 器 中 双击 “ 主 表 ”， 编 写 命令 按钮 1 的 Click 事件 程序 
如 下 : 


Private Sub CommandButtonl_ Click() 
UserForm3 .Show 
End Sub 
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(39) 编写 主 表 的 命令 按钮 2 的 Click 事件 程序 如 下 : 


Private Sub CommandButton2 Click() 

Sheets (" 主 表 ") .Select 

Range(Cells(1, 1), Cells(1000, 100)).cClear 
End Sub 


6.3.4 ”实验 效果 


(1) 选择 “原始 数据 ” 表 ， 单 击 “ 插 入 ”按钮 ， 出 现 UserForm1， 在 窗 体 中 输入 
发 票 号 、 发 票 时 间 、 发 票 金额 、 客 户 名 称 后 ， 单 击 “ 确 定 ” 按 钮 将 增加 该 条 信息 ， 
如 图 6-48 所 示 。 


userForm1 


图 6-48 ”往来 业务 数据 输入 


(2) 单 击 “ 查 询 ” 按钮， 出现 UserForm2, 在 窗 体 中 设置 好 查询 条 件 后 , 单 击 “ 确 
定 ” 按钮 将 查询 符合 条 件 的 信息 ， 加 图 649 所 示 。 


2003-8-15 
2003-8-16 
2003-8-17 
2003-8-19 
2003-8-19 
2003-8-22 
2003-8-22 
2003-8-23 

2003-9-5 


2003-9-6 

2003-9-7 
2003-9-10 
2003-9-12 
2003-9-13 
2003-9-18 
2003-9-22 


图 6-49 查询 条 件 设置 
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(3) 单 击 “ 核 销 ”按钮 ， 将 出 现 对 话 框 ， 询 问 是 否 的 确 要 删除 当前 记录 ， 如 图 
6-50 所 示 。 


图 6-50 ”删除 往来 业务 信息 


(4) 选择 主 表 ， 单 击 “ 账 龄 分 析 ” 按 钮 ， 将 出 现 UserForm3， 设 置 分 析 的 条 件 ， 
如 图 6-51 所 示 。 


UserForm3 


图 6-51 账 龄 分 析 条 件 设 定 


(5) 设置 好 条 件 后 ， 单 击 “ 确 定 ” 按 钮 ， 将 进行 统计 和 分 析 ， 如 图 6-52 所 示 。 
a 


6 | 2 
7 | 到 
-8 
9 
10| 客户 名 称 | 信用 期 内 | 超过 1-30 天 [起 过 31-60 天 康 过 60 天 以 是 ”合计 百分比 
Mi| 客户 A 0 0 0 119| 119| 16.12% 
12 客户 B 0| ol ol 156 156 21.14%| 
13 客户 C 0| ol ol 168| 168| 22.76%| 
国 客户 E 0 0 ol 加 8B4 11. 38%| 
15 客户 D 0 0 0 90 90 12. 20%| 
16| 客户 F 0 0 0 81 Bl1 10. 98%| 
17 客户 G 0 0 0 40 40 5.42% | 
18| 合计 | | 0 738| 738 100. 00% 


图 6-52 分 析 结 果 显 示 效果 


(6) 单 击 “ 表 格 清除 ”按钮 ， 将 清除 统计 分 析 结果 。 
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6.4 固定 资产 折旧 处 理 模 型 


固定 资产 折旧 指 一 定时 期 内 为 弥补 固定 资产 损耗 按照 规定 的 固定 资产 折旧 率 提 
取 的 固定 资产 折旧 ， 它 反映 了 固定 资产 在 当期 生产 中 的 转移 价值 。 


6.4.1 实验 目的 


(1) 了 解 各 种 折旧 函数 的 使 用 。 
(2) 掌握 程序 编写 折旧 计算 的 各 种 方法 。 
(3) 了 解 用 Excel VBA 编写 系统 的 方法 。 


6.4.2 ”实验 内 容 


固定 资产 是 工业 企业 进行 生产 的 三 大 要 素 之 一 ， 是 企业 进行 生产 时 使 用 或 凭借 
的 劳动 资料 ， 加 强 固定 资产 的 管理 是 每 一 个 企业 日 常 管理 的 重要 工作 。 

本 模型 能 够 对 企业 的 固定 资产 进行 增 、 减 、 改 的 操作 ， 并 能 够 按期 对 固定 资产 
进行 折旧 处 理 (提供 多 种 折旧 方法 供用 户 选 择 )， 同 时 能 够 按照 用 户 要 求 ， 生 成 某 一 
个 期 间 的 折旧 数据 ， 为 会 计 处 理 提供 信息 。 


6.4.3 ”实验 案例 


(1) 使 用 Access 2007 建立 固定 资产 折旧 数据 库 ， 设 计 并 创建 各 种 数据 表 和 查 
询 ， 以 及 录入 基本 的 数据 ， 具 体 信息 如 下 。 

@ 固定 资产 折旧 数据 库 文件 名 为 “固定 资产 折旧 数据 .Accdb”。 

@ 固定 资产 信息 表 ( 表 名 : GDZC)， 如 表 6-1 所 示 。 


表 6-1_ 固定 资产 信息 表 数 据 结 构 
序号 | 字段 名 中 文 意 思 类 型 长 度 | 是 否 主 关 键 字 
1 ID 自动 编号 
2 | GDZC-CD | 固定 资产 编码 
3 GDZC-MC | 固定 资产 名 称 
4 _| LBCD 所 属 类 别 编码 
5 
6 


文本 (20) 
文本 (50) 
文本 CO) 
文本 CO) 
文本 (2) 
文本 (2) 


BMCD 所 属 部 门 编码 
LYCD 资产 来 源 编码 
QXCD 资产 去 向 编码 
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序号 | 字段 名 中 文 意思 


( 续 表 ) 
是 否 主 关键 字 


8 | zQcD 使 用 状况 编码 


9_ | ZrcD 折旧 方法 编码 


10 | ZIMC 折旧 方法 名 称 


11 | CSDATE | 资产 起 始 时 间 


12 | CosT 资产 原始 价值 
13 | SYNX 资产 使 用 年 限 


14 | SLVRATE | 资产 净 残 值 率 
15 | RZDATE | 资产 登记 进入 本 模型 的 时 间 


16 | LJZJ 进入 本 模型 前 的 累计 折旧 


17 | SYCOST “| 进入 本 模型 前 的 账面 净值 


18 | YCSIGN | 固定 资产 不 再 进行 折旧 计算 的 标志 


19 | YCDATE | 固定 资产 不 再 进行 折旧 计算 的 时 间 
@ 固定 资产 折旧 明细 表 ( 表 名 : ZJMX )， 如 表 6-2 所 示 。 
表 6-2_ 固定 资产 折旧 阴 细 表 数 据 结构 


序 中 
I 
2 
3 


@ 系统 启用 时 间 表 ( 表 名 : QYQJ)， 如 表 6-3 所 示 。 
表 6-3 系统 启用 时 间 表 数 据 结构 


序号 类 型 长 度 
1 | Dp | saws 9 


2 系统 启用 时 间 


@@ 固定 资产 类 别 信息 表 ( 表 名 : ZZLB)， 如 表 6-4 和 6-5 所 示 。 


表 6-4 固定 资产 类 别 信 息 表 数 据 结构 


是 否 主 关键 字 


序号 中 文 意思 是 否 主 关键 字 
有 类 别 编码 文本 (2) 是 
有 类 别名 称 文本 G30) 


*。228。 


雳 6 但 代用 Excel VB4 建立 财 条 浓 理 檬 邢 必 


表 6-5_ 固定 资产 类 别 信息 表 初 始 数 据 


LBCD LBMC 
01 土地 
02 房屋 
03 生产 设备 
04 办 公设 备 
05 运输 设备 


@ 固定 资产 所 属 部 门 信 息 表 ( 表 名 : ZZBM)， 如 表 6-6 和 6-7 所 示 。 


表 6-6_ 固 定 资产 所 属 部 门 信息 表 数 据 结构 
序 B | 字段 名 | 中 文章 思 | 类 型 长 度 | 是 否 主 关键 了 


2 部 门 名 称 文本 (30) 


表 6-7_ 固定 资产 所 属 部 门 信息 表 初 始 数据 


BMCD BMMC 
01 总 经 理 办 公 室 
02 财务 室 
03 办 公 室 
04 家 具 分 厂 
05 木 地板 分 / 
06 销售 分 公司 


@ 固定 资产 来 源 信息 表 ( 表 名 : ZZLY)， 如 表 6-8 和 6-9 所 示 。 


表 6-8_ 固 定 资产 来 源 信息 表 数 据 结构 


类 型 长 度 
文本 (2) 
文本 (30) 


是 否 主 关键 字 


LYCD LYMC 
01 购 入 
02 自 建 
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( 续 表 ) 
LYCD LYMC 
03 投入 
04 盘 硬 
05 捐赠 
06 内 部 调拨 
07 其 他 


图 固定 资产 去 向 信息 表 ( 表 名 : ZZQX)， 如 表 6-10 和 6-11 所 示 。 


表 6-10 固定 资产 去 向 信息 表 数 据 结构 
序 B | 字段 名 | 中 文章 思 | 
1 去 向 编码 


2 去 向 名 称 


表 6-11_ 固 定 资产 去 向 信息 表 初 始 数据 


LYCD LYMC 
00 未 发 生变 化 
01 报废 

02 出 售 

03 投资 转 出 
04 盘 亏 

05 捐赠 

06 其 他 


图 固定 资产 状况 信息 表 ( 表 名 : ZZZQ)， 如 表 6-12 和 6-13 所 示 。 


表 6-12_ 固定 资产 状况 信息 表 数 据 结构 
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表 6-13_ 固定 资 产 状况 信息 表 初 始 数据 


LYCD LYMC 
01 未 使 用 
02 在 用 
03 已 提 足 折旧 


固定 资产 综合 信息 查询 (查询 名 : KPCX)。 

查询 SQL 语句 为 : 

SELECT gdzc.gdzc cd, gdzc.gdzc mc, zzlb.lbmc, zzbm.bmmc, 
zzly.lymc, zzqx.qxmc, zzzq.zqmc, gdzc.zjmc, gdzc.csdate, 
gdzc.cost, gdzc.synx, gdzc.slvrate, gdzc.rzdate, gdzc.1jzj, 
gdzc.sycost, gdzc.ycsign FROM ((((gdzc INNER JOIN zzbm ON 
gdzc.bmcd = zzbm.bmcd) INNER JOIN zzlb ON gdzc.lbcd = zzlb.1lbcd) 
INNER JOIN zzly ON gdzc.lycd = zzly.lycd) INNER JOIN zzqx ON 
gdzc.qxcd = zzqx.qxcd) INNER JOIN zzzq ON gdzc.zqcd = zzzq.zqcd; 

四 固定 资产 折旧 明细 查询 (查询 名 : ZJMXCX)。 

查询 SQL 语句 为 : 

SELECT gdzc.gdzc cd, gdzc.gdzc mc, gdzc.zjmc, zjmx.zjdate, 
Zjmx.zjcost FROM gdzc INNER JOIN zjmx ON gdzc.gdzc cd = 
zjmx.gdzc_cd; 

@ 固定 资产 折旧 汇总 查询 (查询 名 : ZJMXHZ)。 

查询 SQL 语句 为 : 

SELECT zjmx.gdzc_cd, Sum(zjmx.zjcost) AS zjcosthz FROM zjmx 
GROUP BY zjmx.gdzc cd; 

(2) 利用 Excel 2007 设计 并 完成 固定 资产 折旧 计算 模型 ， 主 要 功能 有 : 折旧 模 
型 启用 时 间 设 置 、 固 定 资产 的 增删 改 、 固 定 资产 折旧 计算 、 固 定 资产 卡片 查询 、 固 
定 资产 折旧 信息 查询 等 。 


6.4.4 实验 步 


(1) 启动 Access 2007， 选 择 “ 空 白 数据 库 ”， 如 图 6-53 所 示 。 
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万 瓜 久 历 HGrDso 丰 OHjce Access 


和 宁 白 数据 库 


是 高 5 医 Ee 
' 加 


图 6-53 Access 2007 启动 界面 


(2) 在 文件 名 中 输入 数据 库存 放 路 径 以 及 数据 库 名 称 后 ， 单 击 “ 创 建 ”按钮 ， 
如 图 6-54 所 示 。 


空白 数据 库 
到 各 未 包 含 任何 里 总 蒜 据 或 对 象 的 Wierosoft 
库 。 


Office Access 


交 件 名 0D : 
固定 资产 折旧 数据 -aceab ] 时 
C:\Documents and Settings\yxem\My Documents\ 


图 6-54 创建 新 的 数据 库 文件 


er 
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(3) 创建 数据 库 后 ， 选 择 “ 创 建 ” 菜 单 下 的 “ 表 设 计 ” 命 令 ， 将 打开 一 张 新 表 
进行 基本 结构 设计 ， 如 图 6-55 所 示 。 


图 6-55 ”设计 表 的 结构 


(4) 右 击 Sheetl， 在 快捷 菜单 中 选择 “保存 ”， 输 入 表 的 名 称 进行 表 名 的 设 定 ， 
如 图 6-56 所 示 。 


图 6-56 设 定 表 的 名 字 


(5) 按照 实验 资料 的 要 求 ， 输 入 该 表 各 个 字段 的 名 称 、 数 据 类 型 和 数据 的 长 度 
等 信息 ， 如 图 6-57 所 示 。 


gdzc_ac 文本 
lbcd 文本 
bncd 文本 
lycd 文本 
qxcd 文本 
zqcd 文本 
_ jzjcd 文本 
zinc 文本 
csdate 日 期 /时 间 
cost 货币 
Synx 数字 
slvrate 数字 
,rzdate 日 期 /时 间 
1jzj 货币 
sycost 货币 


”图 6-57 表 结构 定 义 完成 显示 效果 


i 
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(6) 单 击 作为 主 关键 字 的 字段 名 左边 的 小 格 ， 以 行 的 方式 选中 该 字段 后 ， 右 击 
鼠标 在 快捷 菜单 中 选择 “主键 ”命令 ， 如 图 6-58 所 示 。 


日 期 /时 间 
货币 


图 6-$8 ” 设 定 表 的 主 关键 字 


图 实验 提示 图 


如 果 是 两 个 或 两 个 以 上 的 字段 共同 作为 主 关键 字 ， 可 以 通过 按 下 Ctrl 键 同时 选 
择 多 个 字段 后 ， 再 右 击 选择 “主键 ”命令 。 但 需要 注意 的 是 ， 在 整个 过 程 中 ， 都 不 


能 松 开 Ctrl 键 。 


(7) 重复 步骤 3) 一 (6)， 将 实验 资料 涉及 的 数据 表 全 部 建立 完毕 ， 如 图 6-59 所 示 。 


zzbm 


国 zzbm : 专 


gdzc 
国 gdzc: 碌 


zly 
国 zzly: 泰 


zzqx 


国 zzqx: 泰 


zzzq 
国 zzzq : 龙 


了 mx 
国 zjmx: 泰 


9qyqj 
国 9qyqj : 委 


图 6-59 ”完成 全 部 表 定义 显示 效果 
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(8) 其 中 部 分 表 有 初始 数据 ， 可 以 通过 双击 该 表 的 名 称 打开 数据 录入 窗口 ， 进 
行 初始 数据 录入 操作 ， 完 毕 后 保存 即 可 。 

(9) 选择 “创建 ”|“ 查 询 设 计 ” 命 令 ， 将 打开 查询 设计 界面 ， 如 图 6-60 所 示 。 
PEE E77 


到 | 计 
和 was 


5 洲 到 8 列 
二 久生 地 近 : | 


图 6-60 查询 设计 


(10) 单 击 显示 表 的 “关闭 ”按钮 ， 在 “查询 1” 的 空白 处 右 击 ， 选 择 快捷 菜单 
中 的 “SQL 视图 ”命令 ， 打 开 查 询 设计 的 SQL 视图 模式 ， 如 图 6-61 所 示 。 


只 克昌 帅 中 区 医 加 日 


图 6-61 SQL 语句 编写 
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(11) 在 SQL 视图 模式 中 ， 输 入 查询 的 SQL 语句 ， 然 后 单 击 “ 关 闭 ”， 在“ 另 
存 为 ”对 话 框 中 输入 查询 的 名 称 ， 如 图 6-62 所 示 。 


SELECT gdzc. gdzc_cd, gdzc. gdzc_me, zzlb.lbme, zzbm. bmme, zzly.lyme, 
FROM 【(((gdzc INNER JOIN zzbm ON gdze.bmed = zzbm.bmed) INNER JOIN 
DN gdzc. rqcd = zzrzq. zacd; 


6-62 ” 设 定 查询 名 称 


(12) 重复 步骤 (9) 一 (11)， 将 所 有 的 查询 建立 完毕 。 

(13) 启动 Excel 2007, 打开 一 个 新 的 工作 敌 , 并 修改 名 称 为 “固定 资产 折旧 计算 ”。 

(14) 将 Sheetl、Sheet2、Sheet3 的 名 称 分 别 修改 为 “ 主 功能 ”、“ 卡 片 查询 及 
修改 ”、“ 明 细 查 询 ”。 

(15) 选择 “ 主 功能 ” 表 ， 插 入 ActiveX 控件 中 的 4 个 命令 按钮 ， 调 整 命令 按钮 
的 长 宽 高 ， 并 设置 其 Caption 属性 ， 如 图 6-63 所 示 。 


A B C D 
CommandButton4 


启用 时 间 设 置 


计 提 加 证 资产 折旧 ”| 固定 资产 查询 及 修改 


6-63 ” 主 功能 表 界面 设计 


CommandButtonl 


E 下 9 H I J kK 


添加 回 定 资产 卡片 


(16) 选择 “卡片 查询 及 修改 ” 表 ， 对 该 表单 进行 基本 格式 设计 ， 同 时 也 插入 4 
个 ActiveX 控件 中 的 命令 按钮 ， 调 整 命令 按钮 的 长 宽 高 ， 并 设置 其 Caption 属性 ， 
如 图 6-64 所 示 。 
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4 8 EE WE 6 1 EE RT 
本 扩 如 | 本 详 纤 | 潮 斌 | 交大 | 捕 转 | 琉 鲜 | 斤 谎 ”| 溢 坟 | 暗 刚 


3 引 内 到 
9 


图 6-64 卡片 查询 及 修改 表 界面 设计 


(17) 选择 “明细 查询 表 ”， 对 该 表单 进行 基本 格式 设计 ， 同 时 也 插入 两 个 ActiveX 
控件 中 的 命令 按钮 ， 调 整 命令 按钮 的 长 宽 高 ， 并 设置 其 Caption 属性 ， 如 图 6-65 所 示 。 


A B c D E 下 6 Hl 
固定 资产 编码 | 国定 资产 名 你 | 折旧 方法 | 计 提 折旧 时 间 | 计 提 折 |6 金 客 


CommandButtonl 站 
CommandButton2 1 


6-65 ”明细 查询 界面 设计 


EEFEFET 网 


(18) 按 下 AltrF11 键 ， 进 入 VBA 程序 设计 和 界面， 插入 用 户 窗 体 6 个 一 一 
UserForml 一 UserForm6， 插 入 模块 1 个 一 一 模块 1， 如 图 6-66 所 示 。 


日 一 已 | 
已 如 YBAProject (固定 资产 


记 - 仿 是 crosoft Excel 对 入 
是 ] Sheetl_ 宇 功能 ) 
Sheet3 (明细 查询 
Thi sgorkbook 
5 - 合 官 体 
国 VserFornl 
国 VserForn2 
国 VserForn3 
国 wserForn4 
国 VserForn5 
国 VserForng 


合 模块 
克 模块 1 

图 6-66 插入 用 户 窗 体 
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(19) 对 用 户 窗 体 UserForm1l 一 UserForm6 进行 界面 设计 。 
@ UserForml 界面 设计 ， 如 图 6-67 所 示 。 


UserForm1 


图 6-67 UserForml 界面 设计 
图 实 验 提示 图 
命令 按钮 从 左 至 右 依 次 为 CommandButtonl ~ CommandButton4，TextBox6 和 
TextBox7 对 象 的 Enabled 属性 设置 为 False。 
如 果 在 可 用 控件 中 没有 发 现 DTP 控件 ， 请 参阅 6.3 节 的 实验 提示 。 


@ UserForm2 界面 设计 ， 如 图 6-68 所 示 。 


2009- 


ED 间 


6-68 ”UserForm2 界面 设计 
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@ UserForm 3 界面 设计 ， 如 图 6-69 所 示 。 


Eo 


ei 


图 6-69 UserForm3 界面 设计 


图 实 验 提示 国 
该 窗口 所 有 的 TextBox 对 象 的 Enabled 属性 全 部 设置 为 False。 


@ UserForm4 界面 设计 ， 如 图 6-70 所 示 。 


图 实 验 提示 图 
命令 按钮 从 左 至 右 依次 为 CommandButtonl ~ CommandButton5，TextBox1l、 
TextBox6 和 TextBox7 对 象 的 Enabled 属性 设置 为 False。 
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Textboxl 


3 
3 
上 


COMBOBOX4 


COMBOBOX1 COMBOBOX2 
[| 

COMBOBOX3 
| 


员 


COMBOBOX5 


册 


由 


图 6-70 UserForm4 界面 设计 


@ UserForm5 界面 设计 ， 如 图 6-71 所 示 。 


UserForm5 


际 Wl Textbox1 fei 


COMBOBOX1 局 
< 


COMBOBOX3 后 
一 一 < 
COMMANDBUTTON1 COMMANDBUTTON2 


i 


图 6-71 UserForms5 界面 设计 
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国 实 验 提示 国 
TextBoxl 和 TextBox2 对 象 的 Enabled 属性 设置 为 False。 


@ UserForm6 界面 设计 ， 如 图 6-72 所 示 。 


UserForm6 


:if coMMANDBUTTON2 


区 各 -和 


图 6-72 UserForm6 界面 设计 


(20) 双击 打开 模块 1， 在 通用 的 声明 部 分 ， 声 明 全 局 变量 : 
Public cnn As ADODB.Connection "声明 一 个 数据 库 连 接 对 象 ， 并 作为 全 局 变量 
Public qybzdate As String ' 声 明 一 个 全 局 变量 ， 存 放 系统 启用 日 期 。 
(21) 在 模块 1 中 ， 编 写 自 启动 程序 : 
Sub auto_open() 


' 存 放 在 模块 中 的 RUTO_OPEN 过 程 ， 将 在 文件 打开 的 时 候 自动 运行 ， 通 常 将 一 些 系 统 设置 
程序 放 入 这 个 过 程 中 ， 以 便于 一 开始 就 设置 好 系统 环境 ， 以 及 一 些 全 局 变量 。 


Dim MYDATA As String 


"将 数据 库 和 Excel 文件 存放 在 一 个 目录 下 , 然后 利用 工作 等 的 Path 属性 自动 判断 数据 库 
存放 的 位 置 ， 这 将 提高 程序 的 自由 度 。 
MYDATA = ThisWorkbook.Path & "\ 固 定 资产 折旧 数据 .accdb" 
Set cnn = New ADODB.Connection 
With cnn 
.Provider = "Microsoft.ACE.OLEDB.12.0" 


.Open MYDRTR ' 使 用 前 面 的 数据 库 驱 动 程序 ， 打 开 对 应 的 数据 库 。 
End With 
"声明 一 个 记录 集 对 象 ， 对 表 中 数据 的 操作 主要 通过 记录 集 来 完成 。 


Dim rsqy As ADODB.Recordset 
ws 
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Dim mysql As String 

mysql = "qyqj" 

Set rsqy = New ADODB.Recordset 

rsqy.Oopen mysql, cnn, adOpenKeyset, adLockOptimistic 
qybzdate = "" 


"如 果 没 有 任何 启用 时 间 的 数据 ， 则 表示 系统 还 未 曾 启 用 ， 需 要 输入 启用 时 间 这 个 初始 


值 ， 在 此 之 前 ， 部 分 命令 按钮 将 禁止 使 用 。 
If rsqy.RecordCount > 0 Then 


Sheets (" 主 功能 ") .CommandButton1.Enabled = True 
Sheets (" 主 功能 ") .CommandButton2.Enabled = True 
Sheets (" 主 功能 ") .CommandButton3.Enabled = True 
Sheets (" 主 功能 ") .CommandButton4.Enabled = False 
Sheets (" 卡 片 查询 及 修改 ") .CommandButton1.Enabled = True 


Sheets (" 卡 片 查询 及 修改 ") .CommandButton2.Enabled = True 
Sheets (" 卡 片 查询 及 修改 ") .CommandButton3.Enabled = True 
Sheets (" 卡 片 查询 及 修改 ") .CommandButton4.Enabled = True 
Sheets ("明细 查询 ") .CommandButton1.Enabled = True 
Sheets ("明细 查询 ") .CommandButton2.Enabled = True 
qybzdate = Format (CStr (rsqy.Fields ("qydate")), 
"yyyy-mm-dd") 

Else 
Sheets (" 主 功能 ") .CommandButton4.Enabled = True 
Sheets (" 主 功能 ") .CommandButton1.Enabled = False 
Sheets (" 主 功能 ") .CommandButton2.Enabled = False 
Sheets (" 主 功能 ") .CommandButton3.Enabled = False 
Sheets ("卡片 查询 及 修改 ") .CommandButton1.Enabled = False 
Sheets ("卡片 查询 及 修改 ") .CommandButton2.Enabled = False 
Sheets ("卡片 查询 及 修改 ") .CommandButton3.Enabled = False 
Sheets ("卡片 查询 及 修改 ") .CommandButton4.Enabled = False 
Sheets ("明细 查询 ") .CommandButton]l .Enabled = False 
Sheets ("明细 查询 ") .CommandButton2 .Enabled 

End If 

Sheets (" 主 功能 ") .Select 

End Sub 


(22) 在 模块 1 中 ， 编 写 固 定 资产 卡片 查询 修改 程序 : 


Sub kpcxxg() 
Dim rscx As ADODB.Recordset 
Dim mysql As String 


False 


Dim i Rs Integer 
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Set rscx = New ADODB.Recordset 
mysql = "select * from kpcx "' 使 用 数据 库 中 的 soL 查询 来 进行 数据 
的 查询 操作 
rscx.Open mysql, cnn, adOpenKeyset, adLockOptimistic 
IE rscx.RecordCount = 0 Then 
MsgBox "目前 没有 任何 固定 资产 信息 ! " 
Exit Sub 
End If 
rscx.MoveFirst 
Sheets ("卡片 查询 及 修改 ") .Select 
Range ("a2:k200") .ClearContents 
For i = 1 To rscx.RecordCount 
Cells(i + 1, 1) = rscx.Fields("gdzc cd") 


Cells(i + 1, 2) = rscx.Fields("gdzc mc") 
Cells(i + 1, 3) = rscx.Fields ("lymc") 
Cells(i + 1, 4) = rscx.Fields("cost") 
Cells(i + 1, 5) = rscx.Fields ("synx") 
Cells(i + 1, 6) = rscx.Fields("slvrate") 
Cells(i + 1, 7) = rscx.Fields ("zjmc") 
Cells(i + 1, 8) = rscx.Fields ("qxmc") 


Cells(i + 1, 9) = rscx.Fields("zqmc") 
rscx.MoveNext 
Next i 
End Sub 


(23) 在 模块 1 中 ， 编 写 折旧 明细 查询 程序 : 


Sub mxcx() 
Dim rsmxcx As ADODB.Recordset 
Dim mysql As String 
Dim i As Integer 


If ActiveCell.Row = 1 Or Cells(ActiveCell .Row, 1) = "" Then 
MsgBox "请 先 选择 一 个 固定 资产 ! " 
Exit Sub 
End If 
mysql = "select * from zjmxcx where gdzc cd='" & 


Cells (ActiveCell.Row, 1) & "' order by zjdate asc " 
Set rsmxcx = New ADODB.Recordset 
rsmxcx.Open mysql, cnn, adOopenKeyset, adLockOptimistic 
If rsmxcx.RecordCount = 0 Then 
MsgBox "没有 符合 条 件 的 折旧 记录 ! " 
Exit Sub 
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End If 

Sheets ("明细 查询 ") .Select 

Range ("a2:e100") .ClearContents 

rsmxcx.MoveFirst 

For i = 1 To rsmxcx.RecordCount 
Cells(i + 1, 1) = rsmxcx.Fields ("gdzc cd") 
Cells(i + 1, 2) = rsmxcx.Fields ("gdzc mc") 
Cells(i + 1, 3) = rsmxcx.Fields ("zjmc") 
Cells(i + 1, 4) = Format (rsmxcx.Fields ("zjdate"), 

"yyyy-mm-dd") 

Cells(i + 1, 5) = Format (rsmxcx.Fields ("zjcost"), "0.00") 


rsmxcx.MoveNext 
Next i 
mysql = "select sum(zjcost) as zjcosthz from zjmxcx where 


gdzc cd="'" & Cells(2, 1) & "'" 
Set rsmxcx = New ADODB.Recordset 
rsmxcx.Open mysql, cnn, adOpenKeyset, adLockOptimistic 
Cells (i + 1，4) = "累计 折旧 " 
Cells(i + 1, 5) = TsSmxCx.EFields("zjcosthz") 
End Sub 


(24) 双击 Sheetl( 主 功能 ) 表 , 编写 WorkSheet_Activate 以 及 CommandButton1 一 4 
的 Click 事件 程序 : 


Private Sub Worksheet Activate() 
"清除 表 2 和 表 3 的 显示 内 容 ， 为 新 的 查询 做 好 准备 
Sheet2.Range ("a2:i1000") .ClearContents 
Sheet3.Range ("a2:e1000") .ClearContents 
End Sub 


Private Sub CommandButtonl Click() 
"出 现 添加 固定 资产 的 窗口 
UserForml .Show 
End Sub 


Private Sub CommandButton2 Click() 
"出 现 计 提 固 定 资产 折旧 的 窗口 


UserForm2 .Show 
End Sub 


Private Sub CommandButton3 _ Click() 
"调用 固定 资产 卡片 查询 过 程 ， 并 在 表 2 中 显示 查询 结果 
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Call kpcxxg 
End Sub 


Private Sub CommandButton4 Click() 

"设置 系统 启用 时 间 ， 这 个 功能 只 使 用 一 次 ， 设 置 好 后 将 不 再 使 用 
UserForm6 .Show 

End Sub 


(25) 双击 Sheet2( 卡 片 查询 及 修改 ) 表 ， 编 写 WorkSheet Activate 以 及 
CommandButton1 一 4 的 Click 事件 程序 : 


Private Sub Worksheet Activate() 
"清除 表 3 中 的 显示 内 容 

Sheet3.Range ("a2:e1000") .ClearContents 
End Sub 


Private Sub CommandButton1l Click() 
"进行 基本 的 信息 检查 ， 并 调用 固定 资产 卡片 显示 窗口 显示 固定 资产 信息 
Dim rscx Rs ADODB.Recordset 
Dim mysql As String 
IE ActiveCell.Row = 1 Or Cells(ActiveCell .Row, 1) = "" Then 
MsgBox "请 先 选择 一 个 固定 资产 ! " 
Exit Sub 
End If 
mysql = "select * from kpcx" 
Set rscx = New ADODB.Recordset 
rscx.Open mysql, cnn, adOpenKeyset, adLockOptimistic 
If rscx.RecordCount = 0 Then 
MsgBox "没有 符合 条 件 的 固定 资产 记录 ! " 
Exit Sub 
End If 
UserForm3.Show 
End Sub 


Private Sub CommandButton2 Click() 
' 进 行 必要 的 信息 检查 ， 并 调用 固定 资产 信息 修改 窗口 
Dim rsmx As ADODB.Recordset 
Dim mysql As String 
Dim xgdate As Date 
If ActiveCell.Row = 1 Or Cells (ActiveCell .Row, 1) = 
MsgBox "请 先 选择 一 个 固定 资产 ! " 


Exit Sub 
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End If 
mysql = "select * from zjmx order by zjdate asc" 
Set rsmx = New ADODB.Recordset 
rsmx.Open mysql, cnn, adOpenKeyset, adLockOptimistic 
xgdate = Now 
If rsmx.RecordCount > 0 Then 
' 当 已 经 进行 过 折旧 的 情况 下 ， 已 折旧 期 间 的 固定 资产 信息 将 无 法 修改 。 
rsmx.MoveLast 
IE (Yearl(rsmx.Fields("zjdate")) * 12 + 
Month (rsmx.Fields ("zjdate"))) >= (Year (xgdate) * 12 + Month (xgdate)) 
Then 
MsgBox "该 月 份 已 经 计 提 了 折旧 ， 无 法 修改 数据 ! " 
Exit Sub 
End If 
Else 
"如果 至 今 没有 进行 过 一 次 折旧 ， 就 表示 仍然 处 于 系统 启用 这 个 期 间 ， 如 果 这 个 
期 间 还 没有 计 提 折旧 ， 这 种 情况 下 是 可 以 修改 固定 资产 信息 的 。 
If (Year (CDate (qybzdate)) * 12 + Month (CDate (cybzdate))) <> 
(Year (xgdate) * 12 + Month(xgdate)) Then 
MsgBox "当前 时 间 不 在 合理 期 间 内 ， 无 法 修改 数据 ! " 
Exit Sub 
End If 
End If 
mysql = "select * from gdzc Where gdzc cd='" & 
Trim(Cells (ActiveCell .Row, 1)) & "'" 
Set rsmx = New ADODB.Recordset 
rsmx.Open mysql, cnn, adOpenKeyset, adLockOptimistic 
If rsmx.Fields("ycsign") = True Then 
MsgBox "该 固定 资产 已 经 移 除 本 企业 ， 所 以 不 能 再 修改 ! " 
Exit Sub 
End If 
Set rsmx = New ADODB.Recordset 
mysql = "select * from zjmx Where gdzc cd='" & 
Trim(Cells (ActiveCell .Row, 1)) & "'" 
rsmx.Open mysql, cnn, adOopenKeyset, adLockBatchOptimistic 
"检查 该 固定 资产 以 前 是 否 进行 过 折旧 计 提 ， 已 经 计 提 过 和 没有 计 提 的 固定 资产 
能 够 修改 的 信息 不 尽 相同 。 
If rsmx.RecordCount = 0 Then 
UserForm4 .Show 
Else 
UserForm5 .Show 
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End If 
End Sub 


Private Sub CommandButton3 Click() 
"调用 明细 查询 过 程 

Call mzxcx 
End Sub 


Private Sub CommandButton4 Click() 
Sheet2.Range ("a2:i1000") .ClearContents 
Sheet1.Select 

End Sub 


(26) 双击 Sheet3( 明 细 查 询 ) 表 ， 编 写 CommandButton1 一 2 的 Click 事件 程序 : 


Private Sub CommandButton] Click() 
Sheet3.Range ("a2:e1000") .ClearContents 
Sheet2.Select 

End Sub 


Private Sub CommandButton2_Click() 
Sheet3.Range ("a2:el1000") .ClearContents 
Sheetl.Select 

End Sub 


(27) 双击 UserForm 1， 编 写 窗口 的 Initialize 事件 程序 : 


Private Sub UserForm Initialize() 
' 添 加 固定 资产 卡片 
Dim mytable As String 
Dim rs As ADODB.Recordset 
Dim i As Integer 
mytable = "zzlb" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
"初始 化 资产 类 别 下 拉 列 表 框 
For i = 1 To rs.RecordCount 
ComboBox1l.RAddItem (rs.Fields(0) & rs.Fields (1) 
rs.MoveNext 
Next i 
mytable = "zzbm" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
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"初始 化 使 用 部 门下 拉 列 表 框 
For i = 1 To rs.RecordCount 
ComboBox2.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 
Next i 
mytable = "zzly" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOopenKeyset, adLockOptimistic 
"初始 化 资产 来 源 下 拉 列表 框 
For i = 1 To rs.RecordCount 
ComboBox3.AddItem (rs.Fields(0) & rs.Fields(1) 
rs.MoveNext 
Next i 
mytable = "zzzq" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOopenKeyset, adLockOptimistic 
"初始 化 资产 状况 下 拉 列 表 框 
For i = 1 To rs.RecordCount 
ComboBox4.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 
Next i 
syqjs = 0 
ComboBox5 .AddItem ("01 直线 折旧 法 ") 
ComboBox5 .AddItem ("02 双 倍 余额 递减 法 ") 
ComboBox5 .AddItem ("03 年 数 总 和 法 ") 
DTPicker2.Value = Now 
DTPickerl.Value = Now 


TextBox3.Value = "0" 
TextBox4.Value = "0" 
TextBox5.Value = "0" 
TextBox6.Value = "0" 


TextBox7.Value = "0" 
TextBoxl1.SetFocus 


End Sub 


(28) 在 UserForml 中 ,编写 一 个 判断 固定 资产 编码 是 否 重复 的 函数 : 


Function cfpdl(ByVal zccd As String) Rs Boolean 


Dim rs As ADODB.Recordset 
Dim mytable As String 
Dim cxtj As String 

If zccd = "" Then 
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MsgBox "请 输入 固定 资产 编码 ! " 
cfpd = False 
Exit Function 
End If 
mytable = "gdzc" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
cxtj = "gdzc cd="'" & zccd & "'" 
rs.Find (cxtj) 
If rs.EOF = False Then 
MsgBox 定 资产 编码 不 能 重复 ! " 
cfpd = False 


rs.Close 
Exit Function 
End If 
cfpd = True 
End Function 


(29) 在 UserForml 中 ， 编 写 CommandButton1 一 4 的 Click 事件 程序 : 


Private Sub CommandButtonl Click() 
"按照 输入 的 信息 ， 以 及 折旧 方法 ， 自 动 计算 期 初 累计 折旧 金额 和 账面 净值 

Dim gdzc cd As String 

Dim gdzc pd As Boolean 

Dim cost As Double 

Dim salvage As Double 

Dim zqs As Integer 

Dim syqs As Integer 

Dim 1jzj Rs Double 

If cfpd(TextBoxl.Value) = False Then 
TextBoxl .SetFocus 
Exit Sub 

End If 

If TextBox2.Value = "" Then 
MsgBox "固定 资产 名 称 不 能 为 空 " 
TextBox2.SetFocus 
Exit Sub 

End If 

If ComboBoxl.Value = "" Then 
MsgBox "固定 资产 类 别 不 能 为 空 ! " 
ComboBox1.SetFocus 
Exit Sub 
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End If 
If ComboBox2.Value = "" Then 
MsgBox "固定 资产 使 用 部 门 不 能 为 空 ! " 
ComboBox2.SetFocus 
Exit Sub 
End If 
IE ComboBox3.Value = "" Then 
MsgBox 定 资产 增加 方式 不 能 为 空 ! 
ComboBox3.SetFocus 
Exit Sub 
End If 
If ComboBox4.Value = "" Then 
MsgBox "固定 资产 使 用 状态 不 能 为 空 ! " 
ComboBox4.SetFocus 
Exit Sub 
End If 
If ComboBox5.Value = "" Then 
MsgBox "固定 资产 折旧 方法 不 能 为 空 ! " 
ComboBox5.SetFocus 
Exit Sub 
End If 
IE TextBox3.Value = "" Or Val (TextBox3.Value) = 0 Then 
MsgBox "请 输入 固定 资产 原 值 ! " 
TextBox7.SetFocus 
Exit Sub 
Else 
If IsSNumeric (TextBox3.Value) = False Then 
MsgBox "请 在 固定 资产 原 值 中 输入 数字 ! " 
TextBox3 .SetFocus 
Exit Sub 
End If 
End If 
If TextBox4.Value = "" Then 
MsgBox "请 输入 净 残 值 率 ! " 
TextBox4.SetFocus 
Exit Sub 
Else 


IE IsNumeric(TextBox4.Value) = False Then 
MsgBox "请 在 净 残 值 率 中 输入 数字 ! " 
TextBox4.SetFocus 
Exit Sub 
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Else 


If Val (TextBox4.Value) >= 1 Then 
MsgBox “" 残 值 率 的 数值 要 小 于 1! " 
TextBox4.SetFocus 
Exit Sub 

End If 

End If 
End If 


IE TextBox5.Value = "" Or Val (TextBox5.Value) = 0 Then 
MsgBox "请 输入 固定 资产 使 用 年 限 ! " 
TextBox5.SetFocus 
Exit Sub 

Else 


IE IsNumeric(TextBox5.Value) = False Then 
MsgBox "请 在 固定 资产 使 用 年 限 中 输入 数字 ! " 
TextBox5.SetFocus 
Exit Sub 

Else 
TextBox5.Value = 

End If 

End If 


Int (Val (TextBox5.Value)) 


If DTPickerl.Value > DTPicker2.Value Then 
MsgBox "初始 时 间 不 得 大 于 入 账 时 间 前 ! " 
DTPickerl.SetFocus 
Exit Sub 

End If 


cost = Val (TextBox3.Value) 
salvage = cost * Val (TextBox4.Value) 
zqs = Val (TextBox5.Value) * 12 
"至 入 账 时 间 为 止 ， 该 固定 资产 已 经 使 用 的 期 数 ， 自 动 计算 期 初 累计 折旧 需要 该 
数据 


syqs = Year (DTPicker2.Value) * 12 + Month (DTPicker2.Value) 
- Year (DTPicker1l.Value) * 12 - Month(DTPickerl.Value) 
1jzj = 0 
If ComboBox5.Value = "01 直线 折旧 法 "Then 
For i= 1 To syqs 


1jzj = 1jzj + SLN(cost, salvage, 2zqs) 
Next i 
End If 


IE ComboBox5.Value = "02 双 倍 余额 递减 法 ”Then 


wa 
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For i= 1 To syqs 
1jzj = 1jzj + DDB(cost, salvage, zqs, i, 2) 
Next i 
End If 
If ComboBox5.Value = "03 年 数 总 和 法 " Then 
For i= 1 To syqs 
1jzj = 1jzj + SYD(cost, salvage, zqs, i) 
Next i 
End If 
TextBox6.Value = Format (1jzj, "0.00") 
TextBox7.Value = Format (cost - 1jzj, "0.00") 
End Sub 


Private Sub CommandButton2 Click() 
"由 于 个 别 原因 ， 固 定 资产 的 累计 折旧 有 可 能 与 自动 计算 的 结果 不 一 致 ， 这 就 需要 自己 
输入 期 初 累计 折旧 ， 系 统 将 自动 计算 账面 净值 。 
Dim tzzj As String 
If TextBox7.Value = "" Or Val (TextBox7.Value) = 0 Then 
MsgBox "请 先 自动 计算 累计 折旧 和 账面 净值 " 
Exit Sub 
End If 
tzzj = InputBox (" 请 输入 调整 的 累计 折旧 金额 : "，， "0.00") 
TF 2 > TT™ Then 
TextBox6 .Value CDb] (tzzj) 
TextBox7.Value = Val (TextBox3.Value) - CDb]l (tzzj) 
End If 
End Sub 


Private Sub CommandButton3 Click() 
"保存 信息 到 固定 资产 卡片 表 中 
Dim rs As ADODB.Recordset 
Dim rsqy As ADODB.Recordset 
Dim rszjqj As ADODB.Recordset 
Dim zjbzdate As Integer 
Dim mytable As String 


IE TextBox7.Value = "" Or Val (TextBox7.Value) = 0 Then 
MsgBox "请 先 自动 计算 累计 折旧 和 账面 净值 " 
Exit Sub 

End If 


IE Val (TextBox7.Value) <> (Val (TextBox3.Value) 一 
Val (TextBox6.Value)) Then 
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MsgBox "账面 净值 与 原 值 和 累计 折旧 的 值 不 吻合 ! " 
Exit Sub 
End If 
mytable = "select * from zjmx order by zjdate asc" 
Set rszjqj = New ADODB.Recordset 
rszjqj.Open mytable, cnn, adOopenKeyset, adLockOptimistic 
' 计 算 该 固定 资产 入 账 的 合理 期 间 。 该 期 间 要 么 是 最 后 一 个 折旧 期 间 的 下 一 个 期 
间 ， 要 么 就 是 启用 的 那个 期 间 。 
IE rszjqj.RecordCount = 0 Then 


mytable = "gqyqj" 
Set rsqy = New ADODB.Recordset 
rsqy.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
zjbzdate = Year(rsqy.Fields("qydate")) * 12 + 
Month(rsqy.Fields("qydate")) -1 
Else 
rszjqj.MoveLast 
zjbzdate = Year(rszjqj.Fields("zjdate")) * 12 + 
Month (rszjqj.Fields ("zjdate")) 
End If 
IE Year (DTPicker2.Value) * 12 + Month(DTPicker2.Value) - 
zjbzdate <> 1 Then 
MsgBox "固定 资产 入 账 时 间 不 在 合理 期 间 ! " 
Exit Sub 
End If 
mytable = "gdzc" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
rs.AddNew 
rs.Fields (1) = Trim(TextBoxl.Value) 
rs.Fields (2) = Trim(TextBox2.Value) 
rs.Fields (3) = Left (ComboBoxl.Value，2) 
rs.Fields (4) = Left (ComboBox2.Value，2) 
rs.Fields (5) = Left (ComboBox3.Value, 2) 
rs.Fields(6) = "00" 
rs.Fields(7) = Left (ComboBox4.Value, 2) 
rs.Fields(8) = Left (ComboBox5.Value, 2) 
rs.Fields (9) = Mid (ComboBox5 .Value, 3, Len (ComboBox5 .Value)— 2) 
rs.Fields (10) CDate (DTPickerl]l .Value) 
rs.Fields (11) CCur (TextBox3.Value) 
rs.Fields(12) = Val (TextBox5.Value) 
rs.Fields (13) Val (TextBox4.Value) 


上 


上 


I 


上 
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rs.Fields(14) = CDate (DTPicker2.Value) 
rs.Fields(15) = CCur (TextBox6.Value) 
rs.Fields (16) CCur (TextBox7 .Value) 
rs.Fields(17) = False 
rs.Update 
MsgBox "添加 完毕 " 

End Sub 


Private Sub CommandButton4 Click() 
Unload Me 
End Sub 


(30) 双击 UserForm2， 编 写 固 定 资产 计 提 折旧 功能 。 在 通用 的 声明 部 分 ， 声 明 
两 个 窗 体 级 变量 : 


Dim rsl As ADODB.Recordset 
Dim rs2 As ADODB.Recordset 


(31) 在 UserForm2 中 ， 编 写 窗口 的 Initialize 事件 程序 : 


Private Sub UserForm Initialize() 
Dim mytable Rs String 
mytable = "gdzc" 
Set rsl = New ADODB.Recordset 
rsl.Open mytable, cnn, adOopenKeyset, adLockOptimistic 
mytable = "select * from zjmx order by zjdate asc" 
Set rs2 = New ADODB.Recordset 
rs2.0pen mytable, cnn, adOopenKeyset, adLockOptimistic 
DTPickerl.Value = Now 

End Sub 


(32) 在 UserForm2 中 ， 编 写 CommandButton1 一 2 的 Click 事件 程序 : 


Private Sub CommandButton1l_Click() 
Dim i Rs Integer 
Dim 1jzjje As Double 
Dim zjje As Double 
Dim qs As Integer 
Dim zqs As Integer 
Dim jtdate As Date 
Dim cxtj As String 
Dim rs3 As ADODB.Recordset 
Dim mysql As String 
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Dim n Rs Integer 
jtdate = DTPickerl .Value 
"折旧 计 提 时 间 合 理性 判断 ， 不 能 早 于 启用 时 间 ， 也 不 能 是 已 计 提 折旧 时 间 ， 而 
且 和 最 后 一 次 折旧 计 提 时 间 的 间隔 必须 是 一 个 期 间 。 
If (Year(jtdate) * 12+Month (jtdate) ) < (Year (CDate (qybzdate) ) 
* 12 + Month (CDate (qybzdate))) Then 
MsgBox " 计 提 折旧 的 时 间 ， 不 应 该 早 于 启用 时 间 ， 即 ” & qybzdate 
Exit Sub 
End If 
If rs2.RecordCount > 0 Then 
rs2.MoveLast 
If Year(jtdate) * 12 + Month(jtdate) - 
Year (rs2.Fields ("zjdate")) * 12 -Month (rs2.Fields ("zjdate")) > 1 Then 
MsgBox "上 个 月 份 没有 计 提 折旧 ， 本 月 无 法 计 提 ! " 
Exit Sub 
Else 
If Year(jtdate) * 12 + Month (jtdate) - 
Year (rs2.Fields ("zjdate")) *12— Month(rs2.Fields ("zjdate")) <1 Then 
MsgBox "已 经 计 提 折 旧 ， 同 一 个 月 份 不 能 计 提 两 次 折旧 ! " 
Exit Sub 
End If 
End If 
Else 
IE (Year(jtdate) * 12 + Month(jtdate) ) <> 
(Year (CDate (qybzdate)) * 12 + Month (CDate (qybzdate) ) ) Then 
MsgBox "第 一 次 计 提 折旧 ， 不 应 该 超过 或 者 早 于 启用 时 间 ， 即 " & 
qybzdate 
Exit Sub 
End If 
End If 
n = MsgBox (" 计 提 折旧 后 ， 本 月 将 无 法 修改 固定 资产 的 数据 ， 是 否 真 的 要 计 
提 ? "，vbOoKCancel) 
If n = vbCancel Then 
Exit Sub 
End If 
Set rs3 = New ADODB.Recordset 
mysql = "select gdzc_cd, sum(zjcost) as ljcost from zjmx group 
by gdzc_cd" 
rs3.0pen mysql, cnn, adOopenKeyset, adLockOptimistic 
rsl.MoveFirst 
For i = 1 To rsl.RecordCount 
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IE rsl-.Fields("Yycsign") = False Then 
"计算 该 固定 资产 的 总 使 用 期 间 数 ， 和 本 次 计 提 的 期 数 
zqs = rsl.Fields("synx") * 12 
qs = (Year(jtdate) - Yearl(rsl.Fields("csdate"))) * 12 + 
(Month (jtdate) - Month(rsl.Fields ("csdate"))) 
If qs > 0 Then 
cxtj = "gdzc cd="'" & rsl.Fields("gdzc cd") & "'" 
rs3.Find (cxtj) 
"计算 该 固定 资产 在 本 系统 中 计 提 的 折旧 合计 金额 
If rs3.EOF = False Then 
1jzjje = rs3.Fields ("ljcost") 
Else 
ljzjje = 0 
End If 
"按照 不 同 的 方法 ， 计 提 本 次 折旧 金额 
If rsl.Fields("zjcd") = "01" Then 
zjje = SLN (rsl.Fields ("cost"), rsl.Fields ("cost") * 
rsl.Fields ("slvrate"), zqs) 
End If 
If rsl.Fields("zjcd") = "02" Then 
zjje = DDB (rsl.Fields ("cost"), rsl.Fields ("cost") * 
rsl.Fields ("slvrate"), zqs, qs, 2) 
End If 
If rsl.Fields("zjcd") = "03" Then 
zjje = SYD(rsl.Fields ("cost"), rsl.Fields ("cost") * 
rsl.Fields ("slvrate"), zqs, qs) 
End If 
"判断 该 固定 资产 本 次 折旧 后 是 否 已 经 提 满 折旧 ， 如 果 提 满 ， 该 固定 资 
产 将 修改 移 除 标志 ， 确 保 以 后 期 间 不 再 计 提 折旧 了 。 
IE (rsl.Fields("cost") - rsl.Fields("1jzj") - ljzjje 
- zjje) <= rsl.Fields("cost") * rsl.Fields("slvrate") Then 


zjje = rsl.Fields("cost") - rsl.Fields("]jzj") — 
1jzjje - rsl.Fields("cost") * rsl.Fields ("slvrate") 
IE rsl.Fields ("qxcd") = "" Or rsl.Fields ("qxcd") = 


"00" Then 
rsl.Fields ("qxcd") = "06" 
rsl.Fields("zqcd") = "03" 
End If 


rsl.Fields ("ycsign") = True 
rsl.Fields ("ycdate") = jtdate 
rsl.Update 
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End If 
"将 本 次 折旧 信息 添加 到 折旧 明细 表 中 
rs2.AddNew 
rs2.Fields("zjdate") = jtdate 
rs2.Fields ("gdzc cd") = rsl.Fields ("gdzc cd") 
rs2.Fields ("zjcost") = Format (zjje, "0.00") 
rs2.Update 
End If 
"如 果 该 固定 资产 因为 某 种 原因 ， 已 经 不 属于 本 企业 ， 将 修改 移 除 标志 ， 确 
保 以 后 将 不 再 计 提 折旧 了 。 
If rsl.Fields ("qxcd") <> "" And rsl.Fields ("qxcd") <> "00" 
Then 
rsl.Fields("zqcd") "G1™ 
rsl.Fields ("ycsign") = True 
rsl.Fields("ycdate") = jtdate 
End If 
End If 
rsl.MoveNext 


Next i 
MsgBox "折旧 计 提 完毕 " 
End Sub 


Private Sub CommandButton2 Click() 
Unload Me 
End Sub 


(33) 双击 UserForm3， 编 写 窗口 的 Initialize 事件 程序 : 


Private Sub UserForm Initialize() 

定 资产 卡片 查询 ， 只 显示 信息 ， 无 法 操作 信息 。 
Dim rscx As ADODB.Recordset 
Dim rszjhz As ADODB.Recordset 
Dim mysql As String 


Dim cxtj Rs String 

Dim zjhz As Double 

mysql = "select * from kpcx" 

Set rscx = New ADODB.Recordset 

rscx.Open mysql, cnn, adOopenKeyset, adLockOptimistic 

mysql = "select * from zjmxhz where gdzc cd='" & 
Trim(Cells (ActiveCell .Row, 1)) & "™'™" 

Set rszjhz = New ADODB .Recordset 

rszjhz.Open mysql, cnn, adOopenKeyset, adLockOptimistic 
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IE rszjhz.RecordCount = 0 Then 
zjhz = 0 
Else 
zjhz = rszjhz.Fields ("zjcosthz") 
End If 
rscx.MoveFirst 
cxtj = "gdzc cd="" & Cells(ActiveCell.Row, 1) & "'" 
rscx.Find (cxtj) 
TextBoxl.Value = rscx.Fields ("gdzc cd") 
TextBox2.Value = rscx.Fields("gdzc mc") 
TextBox3.Value = rscx.Fields ("lbmc") 
TextBox4.Value = rscx.Fields ("bmmc") 
TextBox5.Value = rscx.Fields ("lymc") 
TextBox6.Value = rscx.Fields ("qxmc") 
TextBox7.Value = rscx.Fields("zqmc") 
TextBox8.Value = rscx.Fields ("zjmc") 
TextBox9.Value = Format (rscx.Fields ("cost"), "0.00") 
TextBox10.Value = Format (rscx.Fields ("slvrate"), "0.00%") 
TextBoxll.Value = rscx.Fields ("synx") 
TextBoxl2.Value = Format (rscx.Fields ("csdate"), 
"yyyy-mm-dd") 
TextBoxl3.Value = Format (rscx.Fields ("rzdate"), 
"yyyy-mm-dd") 
TextBoxl4.Value = Format (rscx.Fields ("1jzj"), "0.00") 
TextBox15.Value = Format (zjhz, "0.00") 
TextBoxl6.Value = Format (Val (TextBox9.Value) - 
Val (TextBoxl4.Value) - Val (TextBoxl5.Value), "0.00") 
End Sub 


(34) 在 UserForm3 中 ， 编 写 CommandButtonl 的 Click 事件 程序 : 


Private Sub CommandButtonl Click() 
Unload Me 
End Sub 


(35) 双击 UserForm4， 编 写 窗口 的 Initialize 事件 程序 : 
Private Sub UserForm Initialize() 


' 固 定 资产 修改 ， 要 分 情况 处 理 。 如 果 是 已 经 计 提 折 旧 以 后 ， 则 只 能 修改 部 分 信息 ; 如 果 
是 未 计 提 折旧 ， 则 可 以 修改 大 部 分 信息 。UserForm4 处 理 可 以 修改 大 部 分 信息 的 窗口 ， 而 
UserForm5 处 理 只 能 修改 部 分 信息 的 窗口 。 所 以 ，UserForm4 的 程序 与 UserForml 比较 
类 似 。 
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Dim mytable As String 

Dim rs As ADODB.Recordset 

Dim i As Integer 

Dim xgzccd As String 

xgzccd = Cells(ActiveCell.Row, 1) 


mytable = "select * from gdzc where gdzc cd='" & Trim(xgzccd) 


Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
TextBoxl.Value = rs.Fields (1) 
TextBox2.Value = rs.Fields (2) 
ComboBoxl .Value rs.Fields (3) 
ComboBox2.Value = rs.Fields(4) 
ComboBox3.Value = rs.Fields(5) 
ComboBox4.Value = rs.Fields(7) 
ComboBox6.Value = rs.Fields (8) 
ComboBox5.Value = rs.Fields(6) 
DTPickerl.Value = rs.Fields(10) 
TextBox3.Value = rs.Fields (11) 
TextBox5.Value = rs.Fields (12) 
TextBox4.Value = rs.Fields (13) 
DTPicker2.Value = rs.Fields (14) 
TextBox6.Value = rs.Fields (15) 
TextBox7.Value = rs.Fields(16) 
mytable = "zzlb" 

Set rs = New ADODB.Recordset 


rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
For i = 1 To rs.RecordCount 
ComboBoxl.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 
Next i 
mytable = "zzbm" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOopenKeyset, adLockOptimistic 
For i = 1 To rs.RecordCount 
ComboBox2.AddItem (rs.Fields(0) & rs.Fields (1) 
rs.MoveNext 
Next i 
mytable = "zzly" 
Set rs = New ADODB.Recordset 
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rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 

For i = 1 To rs.RecordCount 
ComboBox3.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 

Next i 

mytable = "zzzq" 

Set rs = New ADODB.Recordset 

rs.Open mytable, cnn, adOopenKeyset, adLockOptimistic 

For i = 1 To rs.RecordCount 
ComboBox4.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 

Next i 

mytable = "zzqx" 

Set rs = New ADODB.Recordset 

rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 

For i = 1 To rs.RecordCount 
ComboBox5.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 

Next i 

ComboBox6.AddItem ("01 直线 折旧 法 ") 

ComboBox6 .AddItem ("02 双 倍 余额 递减 法 ") 

ComboBox6.RddItem ("03 年 数 总 和 法 ") 

syqjs = 0 

End Sub 


(36) 在 UserForm4 中 ， 编 写 CommandButton1 一 5 的 Click 事件 程序 : 


Private Sub CommandButton1l_Click() 

Dim gdzc_cd As String 

Dim gdzc_pd As Boolean 

Dim cost As Double 

Dim salvage As Double 

Dim zqs As Integer 

Dim syqs As Integer 

Dim 1jzj Rs Double 

If TextBox2.Value = "" Then 
MsgBox "固定 资产 名 称 不 能 为 空 " 
TextBox2.SetFocus 
Exit Sub 

End If 

If ComboBoxl.Value = "" Then 
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MsgBox "固定 资产 类 别 不 能 为 空 ! " 
ComboBox1.SetFocus 
Exit Sub 

End If 

IE ComboBox2.Value = "" Then 
MsgBox "固定 资产 使 用 部 门 不 能 为 空 ! " 
ComboBox2.SetFocus 
Exit Sub 

End If 

IE ComboBox3.Value = "" Then 


MsgBox "固定 资产 增加 方式 不 能 为 空 ! " 
ComboBox3.SetFocus 
Exit Sub 

End If 

IE ComboBox4.Value = "" Then 
MsgBox 定 资产 使 用 状态 不 能 为 空 ! " 
ComboBox4.SetFocus 
Exit Sub 

End If 


If ComboBox6.Value = "" Then 
MsgBox "固定 资产 折旧 方法 不 能 为 空 ! " 
ComboBox6.SetFocus 
Exit Sub 
End If 
IE ComboBox5.Value = "" Then 
MsgBox "固定 资产 去 向 不 能 为 空 ! " 
ComboBox5.SetFocus 
Exit Sub 
End If 
IE TextBox3.Value = "" Or Val (TextBox3.Value) = 0 Then 
MsgBox "请 输入 固定 资产 原 值 ! " 
TextBox7.SetFocus 
Exit Sub 
Else 
If IsNumeric(TextBox3.Value) = False Then 
MsgBox "请 在 固定 资产 原 值 中 输入 数字 ! " 
TextBox3.SetFocus 
Exit Sub 
End If 
End If 


*。261。 


做 财务 管理 数据 处 理 技术 一 -Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


If TextBox4.Value = "" Then 
MsgBox "请 输入 净 残 值 率 ! " 
TextBox4.SetFocus 
Exit Sub 
Else 
IE IsNumeric(TextBox4.Value) = False Then 
MsgBox "请 在 净 残 值 率 中 输入 数字 ! " 
TextBox4.SetFocus 
Exit Sub 
Else 
If Val (TextBox4.Value) >= 1 Then 
MsgBox " 残 值 率 的 数值 要 小 于 1! " 
TextBox4.SetFocus 
Exit Sub 
End If 
End If 
End If 
IE TextBox5.Value = "" Or Val (TextBox5.Value) = 0 Then 
MsgBox "请 输入 固定 资产 使 用 年 限 ! " 
TextBox5.SetFocus 
Exit Sub 
Else 
If IsNumeric(TextBox5.Value) = False Then 
MsgBox "请 在 固定 资产 使 用 年 限 中 输入 数字 ! " 
TextBox5.SetFocus 
Exit Sub 
Else 
TextBox5.Value = Int(Val (TextBox5.Value)) 
End If 
End If 
IE DTPickerl.Value > DTPicker2.Value Then 
MsgBox "初始 时 间 不 得 大 于 入 账 时 间 前 ! " 
DTPickerl.SetFocus 
Exit Sub 
End If 
cost = Val (TextBox3.Value) 
salvage = cost * Val (TextBox4.Value) 
2zqs = Val (TextBox5.Value) * 12 
syqs = Year (DTPicker2.Value) * 12 + Month (DTPicker2.Value) 
— Year (DTPickerl.Value) * 12 - Month(DTPickerl.Value) 
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1jzj = 0 
If ComboBox6.Value = "01"” Or ComboBox6.Value = "01 直线 折旧 
法 " Then 
For i = 1 To syqs 
1jzj = 1jzj + SLN(cost, salvage, 2zqs) 
Next i 
End If 
If ComboBox6.Value = "02" Or ComboBox6.Value = "02 双 倍 余额 
递减 法 "Then 
For i= 1 To syqs 
1jzj = 1jzj + DDB(cost，salvage，z9qs，i，2) 
Next i 
End If 
IE ComboBox6.Value = "03" Or ComboBox6.Value = "03 年 数 总 和 
法 " Then 
For i= 1 To syqs 
1jzj = 1jzj + SYD(cost, salvage, zqs, i) 
Next i 
End If 
TextBox6.Value Format (1jzj, "0.00") 
TextBox7.Value = Format (cost - 1jzj, "0.00") 
End Sub 
Private Sub CommandButton2 Click() 
Dim tzzj As Double 
IE TextBox7.Value = "" Or Val (TextBox7.Value) = 0 Then 
MsgBox "请 先 自动 计算 累计 折旧 和 账面 净值 " 
Exit Sub 
End If 
tzzj = InputBox ("请 输入 调整 的 累计 折旧 金额 ; "，， "0.00") 
TextBox6.Value = CDbl (tzzj) 
TextBox7.Value = Val (TextBox3.Value) - CDb]l (tzzj) 
End Sub 


Private Sub CommandButton3 Click() 
Dim rs As ADODB.Recordset 
Dim rsqy As ADODB.Recordset 
Dim rszjqj As ADODB.Recordset 
Dim zjbzdate As Integer 
Dim mytable As String 
If TextBox7.Value = "" Or Val (TextBox7.Value) = 0 Then 
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MsgBox "请 先 自动 计算 累计 折旧 和 账面 净值 " 
Exit Sub 
End If 
IE Val (TextBox7.Value) <> (Val (TextBox3.Value) -一 
Val (TextBox6.Value)) Then 
MsgBox "账面 净值 与 原 值 和 累计 折旧 的 值 不 吻合 ! " 
Exit Sub 
End If 
mytable = "select * from zjmx order by zjdate asc" 
Set rszjqj = New ADODB.Recordset 
rszjqj.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
If rszjqj.RecordCount = 0 Then 
mytable = "qyqj" 
Set rsqy = New ADODB.Recordset 
rsqy.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
zjbzdate = Yearl(rsqy.Fields("qydate")) * 12 + 
Month(rsqy.Fields("qydate")) - 1 
Else 
rszjqj.MoveLast 
zjbzdate = Year(rszjqj.Fields("zjdate")) * 12 + 
Month (rszjqj .Fields ("zjdate")) 
End If 
IE Year (DTPicker2.Value) * 12 + Month (DTPicker2.Value) - 
zjbzdate <> 1 Then 
MsgBox "固定 资产 入 账 时 间 不 在 合理 期 间 ! " 


Exit Sub 
End If 
mytable = "select * from gdzc where gdzc cd='" & 


Trim(TextBoxl.Value) & "'" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
rs.Fields (1) = Trim(TextBoxl.Value) 
rs.Fields(2) = Trim(TextBox2.Value) 
rs.Fields (3) = Left (ComboBoxl .Value, 2) 
rs.Fields(4) = Left (ComboBox2.Value, 2) 
rs.Fields(5) = Left (ComboBox3.Value, 2) 
rs.Fields(6) = Left (ComboBox5.Value, 2) 
rs.Fields(7) = Left (ComboBox4.Value, 2) 
If rs.Fields(8) <> Left (ComboBox6.Value, 2) Then 
rs.Fields(8) = Left (ComboBox6.Value, 2) 
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rs.Fields(9) =Mid(ComboBox6.Value, 3, Len (ComboBox6.Value) 


| 
End If 
rs.Fields(10) = CDate (DTPickerl .Value) 
rs.Fields(11) = CCur (TextBox3.Value) 
rs.Fields(12) = Val (TextBox5.Value) 
rs.Fields(13) = Val (TextBox4.Value) 
rs.Fields(14) = CDate (DTPicker2.Value) 
rs.Fields(15) = CCur (TextBox6.Value) 
rs.Fields(16) = CCur (TextBox7.Value) 
rs.Update 
MsgBox "修改 完毕 " 

End Sub 


Private Sub CommandButton4 Click() 
' 由 于 该 固定 资产 没有 计 提 折 旧 , 将 可 以 删除 该 卡片 。 但 一 旦 计 提 折旧 了 , 就 不 能 删除 了 。 


Dim i As Integer 

Dim rsde As ADODB.Recordset 

Dim mysql As String 

i = MsgBox ("是 否 真 的 要 删除 这 条 记录 ! "， vbOoKCancel) 
IE i = vbOK Then 


mysql = "select * from gdzc Where gdzc cd='" & 


Trim(TextBoxl.Value) & "'" 


Set rsde = New ADODB.Recordset 
rsde.Open mysql, cnn, adOpenKeyset, adLockOptimistic 
rsde.Delete 
rsde.Update 
MsgBox ("删除 成 功 ! ") 
Call kpcxxg 
Unload Me 
End If 


End Sub 


Private Sub CommandButton5 Click() 


Call kpcxxg 
Unload Me 


End Sub 


(37) 双击 UserForm5， 编 写 窗口 的 Initialize 事件 程序 : 


Private Sub UserForm Initialize() 
"已 经 计 提 折旧 的 固定 资产 只 能 修改 部 分 信息 
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Dim mytable As String 


Em 


Dim rs As ADODB.Recordset 

Dim i As Integer 

Dim xgzccd As String 

xgzccd = Cells(ActiveCell.Row, 1) 

mytable = "select * from gdzc where gdzc cd="'" & Trim(xgzccd) 


Set rs = New ADODB.Recordset 

rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
TextBoxl.Value = rs.Fields (1) 

TextBox2.Value = rs.Fields (2) 

ComboBoxl1 .Value = rs.Fields(3) 

ComboBox2 .Value rs.Fields (4) 

ComboBox3.Value = rs.Fields(6) 

mytable = "zzlb" 

Set rs = New ADODB.Recordset 


rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
For i = 1 To rs.RecordCount 
ComboBoxl.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 
Next i 
mytable = "zzbm" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
For i = 1 To rs.RecordCount 
ComboBox2.AddItem (rs.Fields(0) & rs.Fields (1)) 
rs.MoveNext 
Next i 
mytable = "zzqx" 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
For i = 1 To rs.RecordCount 
ComboBox3.AddItem (rs.Fields(0) & rs.Fields(1)) 
rs.MoveNext 
Next i 


End Sub 


(38) 在 UserForm5 中 ， 编 写 CommandButton1 一 2 的 Click 事件 程序 : 


Private Sub CommandButtonl Click() 
Dim rs As ADODB.Recordset 
Dim mytable As String 
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mytable = "Select * from gdzc where gdzc cd='" & 
Trim(TextBoxl.Value) & "™'™ 
Set rs = New ADODB.Recordset 
rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic 
rs.Fields(3) = Left (ComboBox]1 .Value, 2) 
rs.Fields(4) = Left (ComboBox2.Value, 2) 
rs.Fields(6) = Left (ComboBox3.Value, 2) 
rs.Update 
MsgBox "修改 完毕 " 
End Sub 


Private Sub CommandButton2 Click() 
Call kpcxxg 
Unload Me 

End Sub 


(39) 双击 UserFormn6， 编 写 窗口 的 Initialize 事件 程序 : 


Private Sub UserForm Initialize() 

'" 设 定 系统 启用 时 间 ， 该 功能 只 能 使 用 一 次 ， 设 置 完毕 后 该 功能 将 自动 关闭 
DTPickerl.Value = Now 

End Sub 


(40) 在 UserForm6 中 ， 编 写 CommandButton1 一 2 的 Click 事件 程序 : 


Private Sub CommandButtonl Click() 

Dim rs As ADODB.Recordset 

Dim mysql As String 

Dim i As Integer 

i = MsgBox ("该 时 间 非 常 重要 ， 一 旦 设置 将 不 可 修改 ， 设 定 后 ， 所 有 的 折旧 处 理 

必须 在 该 时 间 后 进行 ， 你 是 否 确定 ! "，vboKCancel) 

If i = VvbOK Then 
mysql = "qyqj" 
Set rs = New ADODB.Recordset 
rs.Open mysql, cnn, adOopenKeyset, adLockOptimistic 
rs.AddNew 
rs.Fields("qydate") = DTPickerl.Value 
rs.Update 
MsgBox "启用 期 间 设置 完毕 ， 该 功能 以 后 将 停止 使 用 ! " 
qybzdate = Format (CStr (DTPickerl .Value), "yyyy-mm-dd") 
Sheets (" 主 功能 ") .CommandButton4.Enabled = False 
Sheets (" 主 功能 ") .CommandButton1.Enabled = True 
Sheets (" 主 功能 ") .CommandButton2.Enabled = True 
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Sheets (" 主 功能 ") .CommandButton3.Enabled = True 
Sheets ("卡片 查询 及 修改 ") .CommandButton1.Enabled = True 
Sheets ("卡片 查询 及 修改 ") .CommandButton2.Enabled = True 
Sheets ("卡片 查询 及 修改 ") .CommandButton3.Enabled = True 
Sheets ("卡片 查询 及 修改 ") .CommandButton4.Enabled = True 
Sheets ("明细 查询 ") .CommandButton1.Enabled = True 
Sheets ("明细 查询 ") .CommandButton2.Enabled = True 

End If 

Unload Me 

End Sub 


Private Sub CommandButton2_Click() 
Unload Me 
End Sub 


6.4.5 ”实验 效果 


(1) 第 一 次 启动 该 模型 ， 只 有 “启用 时 间 设 置 ”按钮 可 以 使 用 ， 单 击 该 按钮 后 ， 
出 现 启用 时 间 设 置 对 话 框 ， 如 图 6-73 所 示 。 


6-73 ” 设 定 启用 时 间 


(2) 输入 该 模型 的 启用 时 间 后 ， 单 击 “ 确 定 ” 按 钮 。 启 用 时 间 设 置 完 毕 后 该 功 
能 将 自动 取消 ， 同 时 ， 其 他 按钮 也 可 以 使 用 了 。 

G3) 单 击 “ 添 加 固定 资产 卡片 ”按钮 ， 将 出 现 固定 资产 卡片 信息 输入 窗口 ， 如 
图 6-74 所 示 。 
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UserForal 


三 Pranel 


添加 固定 资产 卡片 图 定 资产 编码 国定 资产 名 称 


固定 资产 类 别 固 资 使 用 部 门 


| 本 人 用 


Franel 


国资 折 方法 国定 资产 原 值 | 
预计 冯 产 从 预计 使 用 年 限 


轿 资 初始 时 间 |2009 围 资 入 账 时 间 


累计 折旧 金额 力 资 三 面 净值 


自动 计算 添加 卡片 


图 6-74 添加 新 的 固定 资产 信息 


(4) 输入 固定 资产 的 相关 信息 ， 最 后 可 以 通过 自动 计算 ， 计 算出 该 固定 资产 到 
目前 时 间 点 的 累计 折旧 金额 和 账面 净值 。 根 据 一 些 企业 的 实际 情况 ， 也 可 以 通过 手 
动 计算 ,输入 累计 折旧 金额 并 计算 账面 净值 。 该 功能 还 会 自动 检查 固定 资产 编码 是 
否 重复 ， 以 及 固定 资产 入 账 时 间 必 须 在 上 个 折旧 期 间 的 下 一 个 期 间 。 

(5) 单 击 “ 计 提 固 定 资产 折旧 ”按钮 ,将 出 现 计 提 折 旧 的 对 话 框 ， 如 图 6-75 所 示 。 


添加 固定 资产 卡片 


固定 资产 查询 及 修改 


图 6-75 ” 设 定 折 旧 处 理 时 间 
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(6) 选择 计 提 的 时 间 后 ， 系 统 将 自动 计算 各 个 固定 资产 本 期 的 折旧 数据 。 系 统 
将 自动 检查 计 提 时 间 是 否 是 上 个 折旧 期 间 的 下 一 个 期 间 。 

(7) 单 击 “ 固 定 资产 查询 及 修改 ”按钮 ， 将 切换 到 “卡片 查询 及 修改 ”表单 ， 
显示 目前 固定 资产 的 基本 信息 ， 如 图 6-76 所 示 。 


购 入 
风 入 


带 回 主 功能 
图 6-76 卡片 查询 及 修改 显示 效果 


(8) 选择 一 个 固定 资产 ， 单 击 “ 卡 片 查询 ”按钮 ， 将 显示 该 固定 资产 的 详细 信 
息 ， 如 图 6-77 所 示 。 


法 
普法 
数 久 和 法 


固 必 资产 共有 | | 


| 


oobi | 二 
ne 


图 定 资产 原 值 


条 让 使 用 年 限 


国资 入 隆 时 间 


入 内 后 的 新 I 旧 


图 6-77 固定 资产 卡片 显示 效果 


(9) 选择 一 个 固定 资产 ， 单 击 “ 信 息 修 改 ” 按 钮 ， 将 根据 固定 资产 的 情况 执行 
信息 修改 功能 。 如 果 是 本 月 增加 的 固定 资产 ， 而 且 本 月 没有 计 提 折旧 ， 将 可 以 修改 
绝 大 部 分 信息 ， 甚 至 删除 该 固定 资产 ， 如 图 6-78 所 示 。 
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UserFormd 


三 Framel 


因 次 送 久 反 | 本 才 商 关 # 称 | 第 ET 谤 和 
国定 资产 类 列 | 04 | 本 次 全 用 部 门 2 国 
国资 增加 方式 Im 国 国资 使 用 状 志 [I 国 
国定 资产 去 向 [” 习 


Framel 


恩 资 折旧 方法 | 01 -| 固定 资产 原 值 


预计 济 产 值 手 | .1 预计 使 用 年 限 | 5 
转 资 初始 时 间 |2010-4 -1 -| 轿 资 入 账 时 间 |2010- 4-2 ~ 
累计 折 虽 会 额 | ， 轿 资 三 面 净值 | 


手动 计算 “| 修改 卡片 | 删除 卡片 退出 


图 6-78 未 提 折 旧 固 定 资产 信息 修改 
(10) 如 果 该 固定 资产 已 经 计 提 过 折旧 ， 则 只 能 修改 少量 信息 ， 如 图 6-79 所 示 。 


UserFora5 


一 Pranel 


Rd 本 烛 产 4 条 | 半 训 ( 
固定 资产 类 列 | o4| -| 转 资 使 用 部 门 | 02 | 


固定 资产 去 向 | 00 -| 


图 6-79 已 提 折 旧 固 定 资产 信息 修改 
(11) 如 果 本 期 已 经 计 提 过 折旧 ， 将 无 法 进行 任何 固定 资产 的 信息 修改 功能 ; 或 
者 该 固定 资产 已 经 流出 本 企业 ， 也 无 法 修改 信息 。 
(12) 选择 一 个 固定 资产 ， 单 击 “ 明 细 查 询 ” 按 钮 ， 将 切换 到 “明细 查询 ”表单 ， 
显示 该 固定 资产 每 次 折旧 的 情况 ， 如 图 6-80 所 示 。 
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三 rm 站 rm 
国定 资产 名 称 拆 | 方法 计 提 折旧 时 间 | 计 光 折旧 金额 


第 二 个 但 备 《 电 视 》 人 2009-10-31 
) 1-1 


返回 查询 切 能 


返回 主 功能 
第 三 个 设备 《电视 》 2 


图 6-80 ”明细 查询 显示 效果 


6.5 习 思 考题 


1. 简单 题 


(1) Excel 如 何 访问 数据 库 文件 ? 

(2) RecordSet 对 象 如 何 操作 数据 库 中 的 记录 ? 

(3) 固定 资产 管理 系统 中 如 何 处 理 当 月 减少 的 固定 资产 ? 

(4) Excel 的 数据 查找 功能 与 RecordSet 的 数据 查找 功能 有 什么 区 别 ? 
(5) Excel VBA 中 如 何 调用 Excel 的 表单 函数 ? 

(6) 简 述 Excel VBA 处 理 固定 资产 折旧 的 程序 设计 思路 。 

(7) 简 述 Excel VBA 处 理 固定 资产 新 增 的 程序 设计 思路 。 

(8) 简 述 Excel VBA 处 理 固定 资产 报废 的 程序 设计 思路 。 


2. 判断 题 


(1) 因为 对 象 都 是 客观 存在 的 ， 所 以 对 象 都 是 可 视 的 。(  ) 

(2) 静态 文本 框 是 无 法 编辑 的 文本 内 容 ， 所 以 在 程序 运行 中 是 无 法 改变 其 显示 
内 容 的 。( ) 

(3) 下 拉 列 表 框 既 可 以 一 次 选择 一 个 项 目 ， 也 可 以 一 次 选择 多 个 项 目 。( ) 

(4) 利用 成 组 框 ， 可 以 在 一 个 窗 体 上 将 单 选 按钮 分 成 几 个 组 ， 相 互 并 不 影响 。 


( ) 
(5) 复 选 框 的 Value 属性 为 True 时 ， 代 表 该 选项 被 选中 。(  ) 
3. 单项 选择 题 
(1) Excel 中 计算 年 金 的 函数 是 


A.PV B.FV C.PMT D. IPNT 


*。272。 


萝 6 童 从 用 Excel VB4 建立 奢 参 营 理 大 型 壬 


(2) Excel 中 计算 直线 折旧 的 函数 是 。 


A. DDB B.SYD C. PPMT D. SLN 
(3) Excel 中 计算 天 数 差 的 函数 是 。 
A. TODAY B. DAYS360 C.NOW D. MONTH 
(4) VBA 中 对 输入 数据 进行 校 验 ， 常 常 使 用 到 事件 。 
A. Click B. SizeChange 
C. LostFocus D. DblClick 
(5) VBA 中 需要 在 多 个 项 目 中 选择 唯一 项 目 时 ， 常 常用 到 对 象 。 


A. 命令 按钮 B. 文本 框 C. 下 拉 列 表 框 D. 微调 按钮 
4. 多 项 选择 题 


(1) 窗口 对 象 有 事件 。 
A. Click B. DblClick C. Error D. KeyUp 
(2) 命令 按钮 有 . 属性 。 
A. Caption B. Enable C. Visible D. Left 
G) 以 下 属于 容器 类 对 象 。 
A. 窗 体 B. 命令 按钮 C. 成 组 框 D. 下 拉 列 表 框 
(4) 能 够 在 程序 运行 结束 后 仍然 保留 数值 的 变量 有 ， 
A. 全 局 B. 窗 体 C. 模块 D. 静态 
(5) 函数 传递 参数 有 方式 。 
A. 传 值 B. 传 地 址 C. 传 格式 D. 传 方法 
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复习 思 


第 一 章 
1. 简 答题 ( 略 ) 
2. 判断 题 : 错误 、 正 确 、 错 误 
3. 单项 选择 题 : A、A、C、B、A 
4. 多 项 选择 题 : ABCD、ABC、ABC 


第 二 章 


. 简 答题 ( 略 ) 


Ry 


了 


考 匀 


料 


题 


2. 判断 题 : 错误 、 错 误 、 正 确 、 正 确 、 正 确 、 错 误 、 正 确 、 正 确 、 正 确 、 错 误 
3. 单项 选择 题 ; C、A、B、D、A、B、D、B、C、B 
4. 多 项 选择 题 ABCD、ABCD、ABC、ACD、ABC 


第 三 章 


. 简 答题 ( 略 ) 


. 判断 题 : 正确 、 正 确 、 正 确 、 正 确 、 


i 

2 

3. 单项 选择 题 : B、C、C、A、A 

4. 多 项 选择 题 : ABC、ABC、ABCD 


第 四 章 


- 简 答题 ( 略 ) 


. 判断 题 : 正确 、 正 确 、 错 误 、 错 误 、 


1 
2 
3. 单项 选择 题 : D、A、D、A、C 
4 


. 多 项 选择 题 : ABCD、ABC、ABD、 


正确 


、ABCD、ABCD、ABCD、AD 


正确 


ABD、 


ABCD 


做 财务 管理 数据 处 理 技术 一 Excel VBA 在 财务 分 析 和 决策 中 的 应 用 


第 五 章 


1. 简 答 题 ( 略 ) 

2. 判断 题 : 正确、 错误、 错误、 错误 、 正 确 

3. 单项 选择 题 : B、A、A、D、A 

4. 多 项 选择 题 : ABCD、ABCD、ABC、ABC、ABCD 


第 六 章 


1. 简 答题 ( 略 ) 

2. 判断 题 : 错误 、 错 误 、 错 误 、 正 确 、 正 确 

3. 单项 选择 题 : C、D、B、C、C 

4. 多 项 选择 题 : ABCD、ABCD、AC、ABCD、AB 
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